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TYPE IN EDUCATIONAL PROGRAMS 
WE LIST THE SOFTWARE THAT’S AVAILABLE 
PLAY PINBALL WITH YOUR ORIC 


The very “ook in arcade action- 


is brought to you by Tansoft — the specialists of the Oric-1 
and Atmos Computers. 
2 The games that people are fighting for are:— 
Defence Force: 

D> Pilot your space-craft 

“> through alien territory and fight 
off the enemy approaching from 

both sides. 48K. £7.95 


Ultima Zone: 

Shoot the Walkons, avoid the 
bouncing Brunes and battle 
your way through the 

» — satellite zone. 48K. £8.50. 
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Rat Splat: 
x A revolting game. 
Splat the rats in the sewer before 
NY they consume the cheese, and destroy the monsters od 
“7 before they consume you! 48K. £7.95. J 


Tansoft produce a wealth of business and utility software to cater fo 
every interest. The ‘not so’ games-minded people may be 
coming to grips with: 

Author: A powerful word-processor program which 
includes word-wrap and word-count. Ideal for letters and 
reports. 48K. £14.50. 

Oric Calc: A full spread-sheet program allows you to sum 
columns or rows and apply complex formulae. 48K. £14.50. 
Oric Cad: A computer aided design program for displaying, 
rotating, enlarging and shading objects on the screen. 
48K. £9.99. 

For the full range of Tansoft software — which currently 
numbers over 20 titles — pick up a catalogue in your local 
Computer Store or contact Tansoft at Unit 1, 

The Techno Park, 645 Newmarket Road, Cambridge. 

Tel. Teversham (02205) 2261. 


or let’s get down to business! 7 
ee 


Tansorr 
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COMMENT, Page 4 
It's out with the old and in with the new 


NEWS, Page 5 
A successful show, Oric sponsorship and plenty more 


BOOK REVIEWS, Page 6 
The latest releases are assessed 


CLUB SPOT, Page 7 
There's a foreign flavour this time 


PRACTICAL MACHINE CODE, Page 9 
Part two of an easy to follow introduction to the 
complexities of Machine Code 


“DEAR ORIC OWNER”, Page 13 
What you have to say to us, and what we say to that 


DISASTER AREA, Page 14 
Had problems with a recent listing. Here's what the 
listings should have had in them... 


COMPETITION, Page 15 
Win yourself a copy of The Hobbit, a classic adventure 
game 
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SOFTWARE FOR YOU, Page 16 
Seven programs for you to type in 


SOFTWARE LISTINGS, Page 19 

The listings — and they're large enough to read without a 
magnifying glass 

SIMPLE SENTENCES 

PINBALL 

CHARACTER DEFINER 

3D ROTATION 

CHARACTER REDEFINER 


SPELLBUZZ ANALYSIS 


SOFTWARE REVIEWS, Page 39 
Reviews of the software we've been enjoying for the last 
few weeks, and think you should be enjoying too! 


SOFTWARE LISTINGS, Page 40 
We bet you never thought there was as much software 
as this available for your Oric 


QUICKIES, Page 43 
Plenty of short programs for you to enter. Some are 
simply demonstrations, others are more useful 


AND FORTHLY .. ., Page 46 
Four new words defined 


APPEND/RENUMBER, Page 47 

A Machine Code porgram that gives far better file 
handling on the Oric computer. You can combine two 
programs, and renumber listings 


HINTS AND TIPS, Page 52 
Useful advice from other Oric owners to make your 
computing easier 


NEXT ISSUE 

We'll be interviewing the inventor of the Atmos, looking 
at the Microdrive, examining Oric’s sound features and 
supplying all the best listings, reviews and latest news. 


Cover illustration by Ainslie Macleod 
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fter two continuous years of 
producing magazines, the 
time has come for me to 
step down to allow someone 
who knows what they are doing to 
take over. That person is Kester 
Cranswick, who joins us from a well 
known photography magazine. His 
experience in this field, plus his 
long-standing Oric ownership, makes 
him the ideal person to develop and 
expand Oric Owner magazine. 

As Managing Director of Tansoft, I 
now have the responsibility of 
ensuring the continuation of Oric 
Owner and the development of a 
wide range of software for the Oric. 

I shall submit pieces now and again, 
particularly on technical subjects such 
as Forth. 

Kester and I will be available to 
meet you at all the major Computer 
Exhibitions this year and everyone is 
welcome to talk about all Oric related 
subjects. I shall look forward to 
meeting you. 

Bye bye for now. 


ON eC 


Publisher 


When I bought my Oric, back in the 
early days, I never imagined it would 


lead to me sitting in the editor's chair 
of Oric Owner. At that time I was the 
technical editor of a weekly 
photographic magazine, interested in 
learning about computers. 

Since then I've learnt quite a bit 
about the Oric and computing in 
general. Still, I'm no expert, and make 
no claims to be. However, here at 
Oric Owner I’m surrounded by 
experts, and part of my job will be to 
put across information in a way that 
every Oric owner can understand. 

I know that the information and 
programs that come in every day from 
you is of a very high calibre. I know 
because I've always read Oric Owner, 
and benefited tremendously from it. 

In the coming months I hope to 
make Oric Owner even better than it 
has been. There are plenty of plans 
afoot, and many ideas to look into. So, 
if you have any ideas or suggestions 
for the magazine, let me know. 


Keaton 


Editor 


RUNNING FOR ORICS 


Oric are doing their bit to 
help Britain's athletes get to 
Los Angeles for this year's 
Olympic games. Oric put up 
prizes for a national Run for 
Britain, held on the 18th 


March at Wisley Park, Surrey. 


The prizes went to the 
runners who raised the most 
money from their sponsors. 
Two 16K Oric-1 computers 
are to be awarded to the top 
money raisers, one to an 
under 16 runner, one to an 
over 16 runner. And, just in 


case some runners felt they'd 
not got enough sponsorship, 
all runners returning their 
sponsorship money by 2st 
April will be elegible for a 
special prize draw. First out of 
the barrel in that wins a 
brand new 48K Oric Atmos. 
With the lure of a home 
computer like the Oric, the 
national organizers hope to go 
a long way towards achieving 
the total target of £1.5 million 
pounds needed by the British 
Olympic hopefuls, 


TANSOFT DEVELOPS 
LINK-WORD 
LANGUAGE 
LEARNING SYSTEM 


LANGUAGE MASTERCLASS, the very first computerised 
Link-Word foreign language learning system,was 
launched recently, at the LET '84 Show by British 
software and publishing house, Tansoft Limited, of 


Cambridge. 


Claimed to provide the ability to communicate at a 
basic level in a selected language within ten to twelve 
hours — around a 70% reduction over conventional book 
learning methods - MASTERCLASS is essentially aimed 
at British businessmen who travel abroad, couriers, 
tourists and home-study students. It is only compatible 
with the new British 48K Oric Atmos microcomputer and 
its forerunner, the Oric-1 48K, and is now available in 
French, German, Italian and Spanish versions. 


CWS: 


LET ’*84 LAUNCHES 


What's in store for '84 was the 
theme of the inaugural 
Leisure Electronics Trader 
show at the Heathrow Penta 
hotel in mid-February. The 
three day, trade only show, 
attracted 120 exhibitors, 
enough to fill three floors. 

Oric took space to show off 
the new Atmos, the restyled 
printer and the yet to be 
released Micro Disc. There 
was plenty of Oric software to 
be seen too. 

Tansoft had a second 
version of Chess, this time 
with synthesised voice 
commands. They also 
demonstrated their latest 
games and the Author word 
processing package. 

Arcadia were showing a 
sample of Pasta Blasta, the 
first part of a Pasta Wars 
trilogy. Ocean had rigged up 
an old Space Invaders arcade 
game to demonstrate 
Hunchback. Durell were 
showing Harrier Attack ona 
five foot screen and 
Salamander were enthusing 


about a new racing game, 
Classic Racing. 

With the launch of the 
Atmos, there seems to be a 
growing commitment to Oric 
software on the part of major 
software houses. There are an 
awful lot of Oric owners out 
there just waiting for the right 
programs to come along. 1984 
is looking set to be a great 
year for Oric software. 


TERRY SHURWOOD 
JOINS ORIC BOARD 
FROM MATTEL 


Terry Shurwood (43) has 
been appointed to the board 
of Oric Products International 
Limited, the Ascot based 


2 


electronics company who last 
month launched the Atmos 
48K micro computer. 

Mr Shurwood joins Oric as 
Sales and Marketing Director, 
taking over from Peter 
Harding who assumes 
responsibility for new vertical 
markets including Viewdata. 

A former National Account 
Manager for ITT, General 
Sales Manager for Ingerso 
Electronics and, most 
recently, Sales and Marketing 
Director for Mattel Electronics 
(UK) Ltd, one of Mr 
Shurwood's responsibilities 
will be the restructuring of 
Oric's sales force and 
improving support to the 
company's 1000 UK micro 
computer dealers. 
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COMPUTING 


WITH THE 
ORIC-1 


Ian Hickman 
Newnes Technical Books 
£6.95 


The Oric manual has come in 
‘for its fair share of (justified) 
criticism. This book is not so 
much a rewritten manual as a 
complementary volume. It 
sets out to fill the gaps of the 
original manual. 

It is written without reference 
to the Atmos, so takes the 
bugs of the original Oric into 
account. The MCP40 printer 
is dealt with too. 

So as not to alienate 
novices, the author starts with 
a look at the history of 
computers, explains common 
terms and how to get the Oric 
running. Sections on BASIC 
programming, colour, 
graphics, editing and 
mathematics follow. They are 
well written but if you've 
persevered with the manual, 
there's little new to be 
gleaned from them. 

A chapter on Boolean logic 
is certainly valuable as that's a 
real gap in the manual. Then 
it's back to strings, more 
graphics and sound 
commands, with a few helpful 
tips here and there. Good 
demonstration programs are 
used throughout to illustrate 
certain features and points. 
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So far, so so. Now come the 
good bits. There's a chapter 
on tape handling, one on 
improving BASIC program 
structures and a lengthy 
section on Machine Code 
that's as good an introduction 
as we've seen anywhere. A 
chapter on printers is also 
worth reading too, as is the 
appendix on the Centronics 
interface. 

For the beginner, this is a 
fairly good book, though the 
final chapters may well be 
confusing. For the more 
advanced user, the first 
chapters are unnecessary and 
the later sections, very handy. 
The book thus falls between 
two interest groups. 
Depending on your 
experience, it may be what 
you want, or it may not. Just 
like the curate’s egg, it is 
good in parts. 


METEORIC 


PROGRAM- 
MING 


John Vander Reyden 
Melbourne House, £7.95 


There’s no shortage of 
programs to enter into your 
Oric. This collection of 30 
listings is one of the most 
balanced around. 

The usual game variants are 
included — Frogger, Bomber, 
Lunar Lander, Invaders and 
so on. They are all quite 
straightforward with few frills. 
Other games include a short 


adventure, a three 
dimensional maze and some 
rather more original games. 

More useful programs 
include basic payroll and 
sales analysis listing, a 
synthesizer listing, a working 
clock and a drawing aid 
program. And, for Machine 
Code programmers, the last 
section of the book has some 
useful explanations and 
utilities. These are a Machine 
Code monitor, a line 
renumber and a block line 
delete. 

Each program is illustrated 
with a picture of the screen 
display. That gives an idea of 
whether the program is worth 
entering in. There are also 
good explanations of program 
structures, useful subroutines 
and variables. The budding 
programmer will certainly 
learn plenty from this book. 

The programs contain a few 
bugs, chiefly the dreaded 
ELSE bug. A thoughtful 
feature is the indication of the 
lengths of empty strings — an 
idea we wish other program 
listers would follow. 

If you are on the lookout for 
a book of programs that will 
teach as well as entertain, this 
is certainly worth getting. We 
rate it highly. 


SIXTY 
PROGRAMS 
FOR THE 
ORIC-1 


Erskine/Walwyn/Stanley/Bews 


Pan, £4.95 
Produced in collaboration 
with Personal Computer 
News, this is a good value 
book of program listings. 
With 60 programs, it will keep 
you busy for weeks. 
The programs are listed with 
nothing more than a brief 
description of the game. 
There are no tips, no screen 
displays and the only way to 
establish the value of a 
program is to laboriously type 
it In. 

All the usual programs are 


listed, along with a few novel 
ones. The most ambitious is a 
three part, 20 page game 
called Evolution. Other 
interesting listings are 
Options — to help you decide 
between a number of options, 
Holiday Expenses, a simple 
payroll calculator, a 
biorhythms listing and a 
moving message displayer. 
The listings are rather 
lengthy, enabling the 
programs to be ofa high 
standard. Bugs are uncommon 
— the publishers will supply 
corrections to Alien, Hangman 
and Minelay listings. Other 
errors will be your fault! 
Whatever your game 
interest, there will be a few 
programs here for you. Take 
the trouble to type them in 
and you'll be royally 
entertained. At just £4.95, this 
book offers excellent value for 
money, if you want a good 
collection of games that you 
could improve on. Other 
books may educate you — this 
one is purely for amusement. 
It does that exceedingly well. 


UNDER- 
STANDING 
ORIC 


Ian McLean 
Prentice/Hall £7.95 


Were we to recommend just 
one book to the Oric owner, 
this would be the one. Fora 
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user wanting information on 
their Oric, at whatever level, 
Ian McLean’s book is a must. 
For a start, it has full details of 
the Atmos, how it differs from 
the Oric-1 and how the new 
commands operate. Should 
you be thinking of upgrading 
to an Atmos, reading this 
book will detail what you'll 
benefit from. 

The book starts at the very 
beginning — unpacking the 
computer. Experienced users 
will be able to gloss over 
these sections, though they 
are well written and very well 
illustrated, even if the style is 
a little condescending. 

Short programs are given 
throughout, encouraging the 
reader to use his computer. 
Screen pictures of what 
should be displayed also help 
the reader too. 

BASIC is tackled in a 
helpful manner too, with 
lengthy explanations of 
commands, examples and 
programming ideas. Word 


and number handling is 
covered effectively. The 
sound section is extremely 
useful in its thoroughness and 
makes sense of the manual's 
instructions. The graphics 
chapters are equally good. 

A chapter of miscellanea 
deals with attributes, POP, 
PULL, GRAB and RELEASE 
commands plus the file 
handling features of the 
Atmos. Then there's a chapter 
on printers (Oric and others), 
followed by a short 
introduction to Machine Code. 

The back of the book 
contains numerous 
appendices — ASCII codes, 
BASIC commands, Assembly 
Language instructions and so 
on. 

All in all, this book should 
be bought by every Oric 
owner, and adopted as a 
manual. It is a little short on 
Machine Code, but for the 
BASIC programmer, there's 
not a better book around. 


CALLING ALL ADVERTISERS 


The Oric Owner is the only magazine devoted to the Oric-1 and Atmos 


computers. 


Virtually every person who buys an Oric will get this magazine. If you 
are selling Oric related products can you afford to miss this chance to 


reach the market you are aiming for? 


For full details of our advertising rates contact Carolyn on Teversham 


2261 and see if she can help you. 


ape —$€— 


How many other Oric owners 
do you know? If you know a 
few, why not get a club 
going? We'll provide free 
publicity to readers, through 
the magazine, and help with 
any queries you may have. 

For instance, if there are 
any Oric owners in the 
Harrow area, James Shields 
‘would be delighted to hear 
from you. He wrote to us with 
details of his Onc outfit and 
wanting to contact other 
owners. If you'd like to talk 
Oric with James, his address 
is 182 Welbeck Road, West 
Harrow, Middlesex HA2 ORX. 

Moving further afield, a 
number of clubs have been 
established on the continent. 
Here are the contact 
addresses... 


Belgium 

Oric Club Verviers 
Mr Philippe Mawet, 
52 Rue Waoury, 
4502 Queue-du-bois, 
Belgium 


Belgium 

Mr Kaisin, 

Rue de l'Idylle 19, 
1080 Bruxelles, 
Belgium 


Belgium 

Oric Computerclub Floppy 
p/a Mathieu Doumen, 
Dennenlaan 7, 

3460 Maasmechelen 


Holland 
Nedoric, 

Dhr. G. Tax, 
Gasthuisring 24, 
5041 DS Tilburg, 
Nederland 


If you're travelling abroad, 
why not contact these clubs? 

If any Oric owners wish to 
set up a club, give us some 
details and we'll happily pass 
on information for you. 


U.K. 


Cardiff 
12 Tregarth Court, 


Creigiau, 
Cardiff 


Kent 

c/o Roger Pyatt, 
23 Arundel Drive, 
Orpington, 

Kent 

Tel: 66 20281 


$$ ¢yssifieds 


This is the place to sell your 
excess software and 
accessories. Oric Owner 
classifieds will reach 
thousands of Oric owners who 
may be interested. 

Classified ads cost just 15jp 
per word, up to a maximum of 
30 words. Just write your ad 
clearly and legibly ona 
postcard and send it to Oric 
Owner, Classifieds, Unit 1 & 2, 
Techno Park, Newmarket 
Road, Cambridge. 


Oric-1 48K TAPE COPIER 
makes backup copies of 
any standard Oric- 1 
Software package. (NB 
users must not infringe 
copyright). 

Copies basic, machine 
code including protected 
autorun. Easy to use, 
repeat copies, instructions. 
Send £5.50 for cassette and 
instructions to: 

A. Johnson, 11 Bedburn 
Avenue, Wear View Est, 
Sunderland, Tyne and 
Wear. 
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For the ORIC-1 
and now also for the ATMOS 


Educational software . 


Story Book - A challenging game that develops 
reading skills. Suitable for any level from early 
reader onwards. You choose the text, the game is 
to reconstruct it by guessing the words. £4.95 


Picture Book - A colourful spelling game for 
young children. Build up pictures by typing words 
and seeing the objects appear "by magic". £4.95 


Personal finance . 


Account Book - The money management program. 
Budgeting and record keeping by automatic double 
entry. Produces full reports on screen or printer. 
Easy to use and menu driven throughout. £12.50 


- Softbacks - 
Send to: 


Softbacks, Dept. TS, PO Box 257, Watford, WD1 3LQ. 
Please state model of computer. (Account Book is 
for the 48K ORIC-1 only.) 

Send sae for further details. 

DEDUCT 50p from total for more than one program. 


DUCKWORTH 
HOME COMPUTING 


All books written by Peter Gerrard, former editor of Commodore 
Computing International, author of two top-selling adventure 
games for the Commodore 64, or by Kevin Bergin. Both are regular 
contributors to Personal Computer News, Which Micro? and 
Software Review and Popular Computing Weekly. 


EXPLORING ADVENTURES ON THE ORIC 48K 
by Peter Gerrard 
This is a complete look at the fabulous world of Adventure Games 
for the Oric Computer. Starting with an introduction to adventures, 
and their early history, it takes you gently through the basic 
programming necessary on the Oric before you can start writing 
your own games. 
Inputting information, room mapping, movement, vocabulary — 
everything required to write an adventure game is explored in 
detail. There follow a number of adventure scenarios, just to get 
you started, and finally three complete listings written specially for 
the Oric, which will send you off into wonderful worlds where 
almost anything can happen. 
The three games listed in this book are available on one cassette. 
£6.95 


Other titles in the series include Sprites & Sound on the 64, 12 

Simple Electronic Projects for the VIC, Will You Still Love Me 

When I’m 64, Advanced Basic & Machine Code Programming on 

the VIC, Advanced Basic & Machine Code Programming on the 

64, as well as Pocket Handbooks for the VIC, 64, Dragon, Spectrum 
and BBC Model B. 

Write in for a descriptive leaflet (with details of cassettes). 


DUCKWORTH 
The Old Piano Factory, 43 Gloucester Crescent, London NW1 7DY 
Tel: 01-485 3484 
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ORIC 16-48K 


Scuba Dive 

Harrier Attack 

Galaxy 5 

Starfighter (48K only) 


ATARI 
Harrier Attack 


SPECTRUM 16-48K 


Scuba Dive (48K only) 
Harrier Attack 
Jungle Trouble 


COMMODORE 64 


Scuba Dive 
Harrier Attack 


DURELL software 


available from 

W.H. SMITH - LASKYS : GREENS AT 
DEBENHAMS -: BOOTS - COMPUTERS FOR 
ALL - MARTINS - SPECTRUM CENTRES 


MAIL ORDER 


retail outlets 
or order direct from 

SPECTRUM software £5.50 all other software £6.95 
Price includes postage and packing 


CASTLE LODGE 
CASTLE GREEN 
TAUNTON 
SOM. TA1 4AB 


TRADE ENQUIRIES TO: 
SOFTWEAR 
COMMUNICATIONS LTD 
MARTECH HOUSE 

4, BAY TERRACE 
PEVENSEY BAY 

EAST SUSSEX 

TEL: (0323) 768456 


TYPE OF COMPUTER: 
CASSETTE TITLES: 


ADDRESS: ... 


Overseas customers please allow £1.00 extra 


Wan 


PRACTICAL 
MACHINE CODE 


PART 2 


Machine Code is not as complicated as it looks. D. 
Sinfield continues his explanations of it from last 
issue. This time, he looks at screen scrolling. 


The program to move the top line of the screen in the 
first part of this article (Oric Owner 6) showed that 
machine code programming isn't just for whizz kids who 
think in code, Admittedly it is a long way removed from 
BASIC and it does require some preparatory work 
before entering a program. A proper monitor or 
assembler/disassembler can relieve the programmer of 
a lot of the drudgery, especially in working out offsets 
and looking up opcodes on a chart, but is the extra effort 
worth it? To answer this question let's now compare the 
speed of machine code with that of an analogous 
program in BASIC. 

The incrementing and decrementing of the Y index 
done to point to the character position along the screen 
line can be replaced by a FOR/NEXT loop. This also 
takes care of the conditional branch we used to check 
that the whole line was done. The LDA/STA pairs used in 
the code can be replaced with PEEKs and POKEs. The 
resulting BASIC looks like this: 


10 B = PEEK (48079) 
20 FOR A = 48078 TO 48042 STEP-1 
30 N = PEEK(A) 
40 POKEA+1,N 
50 NEXT 
55 POKE 48042, B 
Add § FOR C = 1 TO 500 
60 NEXT 
to run program 500 times 


I have converted all the hex addresses to decimal to 
make the program run as quickly as possible. Enter and 
run both programs to compare the speed. You should 
find there's a massive difference. Even using a clumsy 
BASIC/FOR/NEXT loop to CALL our routine 500 times it 
only takes 2.7 seconds. The BASIC takes in the region of 
nearly four minutes to do the same thing. The amount of 
memory used can also be critical. The first two lines of 
the BASIC program use more memory than the whole 
machine code routine. 

I hope you're now convinced that it is worth looking a 
little more into machine code programming. First, define 
what you want to do because if you don't know where 
youre going any road will take you there. The line 
scrolling program can be extended to scroll the whole 


screen. The initial flowchart is in Fig. 1. Notice that the 
flowchart doesn't get any more complicated because 
there is not need to detail the line scroll. We've already 
done it. 


Skip down to ‘have we done whole screen’?’. For the 
line scroll program to work we want to enter the address 
of the position of the left hand side of the line in 0000 and 
0001. We can use this to decide when the bottom of the 
screen has been reached. The last line's address is 
BF'BA so the program should end when it arrives at the 
decision with 0000 containing BA and 0001 containing BF. 
Have a look at the extended program in Fig. 2. It should 
be familiar to line 15 but note that the RTS in line 16 of 
the line scrolling program has gone. That was the return 
from Subroutine to get us back into BASIC (RTS is not 
always used like this). Following the familiar bit are six 
lines (16 to 21) that decide whether the bottom line has 
just been moved to the right. 


These are new and deserve a flowchart of their own 
(Fig. 3). It looks a bit complex but if you follow it through 
step by step you'll see that the only way to reach the end 
is to have a ‘yes’ to both decisions. If the answer to either 
question is ‘no’ there are one or more lines left to do. 
Now, look at the assembly code in Fig. 2 to see how this 
has been achieved. Line 16 is another LoaD Accumulator 
instruction in a new mode. Line | is an example of LDA 
immediate, line 6 uses the same instruction but indirect 
indexed and now in line 16 we have zero page LDA. All 
it means is that the accumulator should have the value of 
zero page address 00 (the low byte of the line pointer) 
transferred to it in preparation for making the decision. 
In line 17 the instruction is new but the mode, indicated 
by the hash mark (#) should ring some bells. The 
instruction is CoMPare. It's very useful because it 
actually does the subtraction sum required without 
affecting the contents of the accumulator. How can doing 
a sum but not producing an answer be helpful? The 
solution lies in the way the 6502 decides whether or not 
to branch when it comes to a conditional instruction. 


The 6502 has a special byte in its architecture called 
the Processor Status Word, often referred to as the PSW. 
This contains eight single byte ‘flags’. It is these bits that 
are tested by the Branch instructions. The flags are set 
and cleared as the result of various instructions. The 
details of the flags that will be affected by a particular 
instruction are given in appendix K of the Oric manual. 
The flag we are interested in for all the conditional 
branches in this program is the zero flag. It is set if the 
result of an instruction is zero and cleared if the result is 
non-zero. BNE causes a branch if the zero flag is cleared 
and BEQ branches if the zero flag is set. Taking an 
example from the program so far: line 13 causes the 
program to branch back to line 8 if the zero flag was 
cleared by the result of line 12 being other than zero. 
This may seem a convoluted way to go about it but later 
when the programs get more complicated we will find 
that transactions not only in the indices X and Y and the 
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accumulator but anywhere in RAM can result in changes 
in the flags and thereby be used as the criteria for 
branches. 


So the compare instruction does a subtraction and 
although it does not produce an answer it alters the 
relevant flags. We test the low byte of the address 
pointer against BA. If the result is not zero then the 
bottom of the page has not been reached, there’s no 
need to check the high byte and the program skips to 
the updating of the pointer. If, however, the low byte is 
equal to BA then it is necessary to check the high order 
byte. This is done by lines 19 and 20 and if the result of 
the comparison of the high byte of the pointer (at 0001) is 
zero then we want to exit from the program. The Branch 
at line 21 points to the RTS that returns control to BASIC. 


Another of the flags is the carry flag and the next 
section of the program, dealing with updating the screen 
pointer, uses the carry. The start of the next line on the 
screen has an address 28 (hex) higher than the line 
above. To move the pointer down we want to add 28 to 
the address pointer. This sounds straight forward but 
remember that we can only deal with one byte at a time 
and addresses are two bytes wide. The first three lines 
are no problem - they start at BBAA,BBD2 and BBFA and 
all we need to do is add 28 to the least significant byte. 
But, how do we calculate that the next line starts at 
BC22? Both bytes of the address have changed. 


Let's deal with the easy one first. Look at lines 23 to 25 
in the program. The carry flag is in an unknown state - it 
may have been set back in BASIC before this routine 
was entered. CLear Carry makes sure that the carry flag 
is zero before we start the calculations. The next 
instruction is one we haven't seen before: ADd with 
Carry. The hash mark indicates that the instruction is in 
immediate mode so the number following is the value to 
be used in the transaction. So, 28 is to be added to the 
accumulator. If you look at the program you'll find that at 
this point in the program the accumulator holds the value 
that was at 0000 — the low byte of the pointer. For the first 
iteration of the routine the accumulator holds the value 
AA. Line 24 does the following operation: 


Accumulator (AA) + Operand (28) + Carry flag (0) 


It puts the result in the accumulator. Do a bit of Hex 
arithmetic and you'll find that the answer to the above 
calculation is D2 which sure enough is the low byte of 
the pointer for the next line. Line 25 should be familiar — 
it stores the accumulator in the zero page address (0000) 
we are using for the low byte of the pointer. On the third 
pass through the program the accumulator will hold FA 
and the above sum will be like this: 


Accumulator (FA) + Operand (28) + Carry Flag (0) 


The result of this calculation is 122. The accumulator is 
only one byte wide so clearly this result will not fit. This 
is where the carry comes in. It, in this case, extends the 
10. Oric Owner 


accumulator by one bit. I'm not going into the intricacy of 
binary, so believe that the leading 1 in 122 is 
represented by the most significant bit of this binary 
number: 


1 0010 0010 
ween 
1 2 2 


The eight least significant bits (the eight on the right) can 
go into the accumulator. The one that doesn't fit goes into 
the carry. The carry need only be one bit wide because 
the largest result by adding two bytes and the carry bit 
is [FF (FF + FF + 1 = 1FF). 


Now, go back to the program in hand. On the third 
pass through, the accumulator and carry flag will look 
like this after each instruction: 


accumulator carry 0000 0001 
Line 22 FA not known FA BB 
Line 23 FA 0 FA BB 
Line 24 22 l FA BB 
Line 25 22 l 22 BB 


The carry has to be added to the high order byte of the 
pointer held at 0001. Line 26 loads this byte into the 
accumulator and line 27 adds just the carry, because the 
operand is zero. The result is stored at the address of the 
high order pointer (0001). 

The process looks like this: 


accumulator carry 0000 0001 
line 26 BB l 22 BB 
line 27 BC 1 22 BB 
line 28 BC l 22 BC 


So, after line 28, the pointers are as we want them and 
we know (almost) all thereis to know about double 
precision arithmetic. 


All the we now require of the program is to go back to 
the point at which we start to do the line. There is an 
instruction in the 6502 set called JuMP which does the 
job. The addressing mode of JuMP most used is absolute. 
This means that following the one byte of instruction two 
bytes of address are given as the destination of the jump. 
One thing to remember about any of the absolute mode 
instructions is that the low byte of the address must be 
given first. When it comes to coding the instruction jump - 
to 9808' it looks like this: 


assembler machine code 
JMP 9808 4C— opcode, JuMP 
- operand (destination address) 


To line 
scrolly routine 


pe 


SUBTRACT BA 
FROM OOOO 


SCROLL 
LINE 


SUBTRACT BF 
FROM OOOI 


CHANGE 
POINTER 
TO NEXT LINE 


AND START 
AGAIN 


UPDATE 


PAGE POINTER 


J and DO LINE 
AGAIN 


IF WE GET THIS 
FAR WHOLE 
SCREEN DONE 


END 
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achive Code 


Another thing to remember about absolute jumps like 
this is that the code is no longer relocatable ie. it cannot 
be moved about in memory without altering the JuMP 
instruction. If this is going to be a disadvantage (if you're 
using the FORTH assembler for instance) and you don't 
know what the abolute address of the destination is 
going to be, then a conditional branch can be used as 
long as you make sure the condition is going to be true. 
An example using a flag that we are familiar with would 
be: 


CLC ‘ 
BCC relative offset 


To put this into words: CLear Carry then Branch if Carry 
Clear. It is obvious that the branch will always be carried 
out, 

The final RTS is only ever executed from the branch at 
line 21 and it returns control to BASIC. 

That's the whole program but by no means the end of 
the story. As it stands the program can be used to scroll 
right from any line downwards but it will always run to 
the bottom of the page. You may remember how to do 
this from the earlier line scrolling program. The top of 
screen pointers can be set up from BASIC and the 
program entered at 9808. How can flexibility be 
improved? One approach might be to have the bottom of 


2 


AC 


LDA #AA 
STA 00 
LDA #BB 
STA 01 
LDY #28 
LDA (00), Y 
PHA 

DEY 

LDA (00), Y 
INY 

STA (00), Y 
DEY 

BNE F7 
PLA 

STA (00), Y 
LDA 00 
CMP #BA 
BNE 06 
LDA 01 
CMP #BF 
BEQ 10 
LDA 00 
ere 

ADC #28 
STA 00 
LDA 01 
ADC #00 
STA 01 
JMP 9808 
RTS 


l 
2 
3 
4 
5 
6 
T 
8 
] 
10 
LY 
la 
13 
14 
15 
16 
17 
18 
19 
20 


DO 
pan 


DO & LH &Y LP 
DD O1 —& © 


WMwhH LY 
OO or 
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page address in memory somewhere and instead of 
doing the comparing in lines 17 and 20 in the immediate 
mode, use zero page mode. This means only four bytes 
of the program need changing; 


old new Machine 
Line no. assembly assembly Code 
17 CMP #BA CMP 02 C5 02 
20 CMP #BF CMP 03 C5 03 


If you do use this then it is essential that the following 
rules are observed: 


1) 0002 must contain the low order byte of the address of 
the left hand side of the screen of the line you want to be 
the last of those moved. 0003 must contain the high order 
byte. 

2) The line pointed to by 0002 and 0003 must be lower 
down the screen than the line pointed to by 00 and 01. 


If either of these conditions are not fulfilled then the 
program will mess about with memory that's not part of 
the screen and will probably crash. This brings to light 
one thing to watch in Machine Code - if your finger slips 
in BASIC and a word is spelled wrong, BASIC traps the 
error. No such safeguards operate in Machine Code -— 
you're on your own talking directly with the CPU! 


This should be familiar 
as the line scrolling 
routine 


R 
| 
| 
| 
| 
| 
| 
| 
t 
| 
| 
| 
| 
| 
| 


Get low byte of pointer 
Compare it to last line address 
If it's not equal then skip high byte comparison 
Get high byte of pointer 
Compare it to bottom line 

If it's equal skip to Exit 

Get low byte 

Make sure carry = zero 

Update pointer 

Put it back 

Get high byte of pointer 

Add the carry from the low byte 
Put it back 

Do next line 

Go back to BASIC 


I hope you won't mind a few 
friendly criticisms of Oric 
Owner, Per page it is costlier 
than more general magazines, 
so readers may be fussier. 

My two greatest hobbies 
are comics and computers, in 
that order. Please, please stop 
Captain Tanex, who is doing 
great damage to both, in that 
order. 

Please stop those 
interviews telling us how 
great the Oric is and how 
clever you all are. Please stop 
printing those ‘gosh’, ‘wow’ 
letters too. I have already 
bought my Oric, and you don't 
have to keep selling it to me. 

Could we have an article 
explaining the PLAY 
command in detail? I must 
confess that having read and 
reread the relevant chapter in 
the manual several times, I'm 
still rather uncertain about 
how it functions. 

How about a full list of 
system variables, or two —- one 
for each BASIC release? It's 
silly that your contributors 
tell you how the machine 
functions. 

Martin Hagstrem, Denmark 


We take your points in the 
right spirit. How do the rest 
of you feel about interviews 
and cartoons? As for the 
article suggestions, watch 
these pages. Ed 


Interfacing 


I have now my Oric-1 (48K) 
for about | year, and I'm very 
pleased with it. 

Lots of my friends have 
bought a Commodore 64 and 
they aren't so happy with it 
(problems with the recorder, 
HI'Resolution ete. ..). Still, I 
wish to make one complaint 
about Oric (overseas). The 
Oric Owner magazine is only 
available in Antwerp. I have 
found my first issue 2 weeks 
ago (OCT/NOV). 

Now to the point of my 
letter: I'm not so interested in 
computer games but I like 
programs like Word-1, 
Assembler, Disassembler, 
Databanks, Forth etc... 

Also I wish to use my micro 
for external use, therefore I'm 
asking you for a copy ofa 
design which a //0 interface 
and how to use it. I already 
made my own joystick 
interface and it works very 
well. 

On the DIN plug (back of 
the Oric) for the recorder 
there is a relay-contact. How 
can it be used? 

Can you also send me a list of 
disc-drives (floppy) that can 
be directly connected to the 
Oric-1 without interface. 
BECU Phillippe, 

BELGIUM. 


If anybody out there has a 
design for an I/O interface, let 
us know. We'll happily publish 
details. As for a disc drive 
unit, the Oric drives are 
promised for the near future. 
The relay contacts of the 
DIN socket are for remote 
operation of a cassette 
recorder, if it has the remote 
facility. You'll have to use a 
seven pin DIN cord. Ed 


Composite 
Video 


There are problems with the 
‘Composite Video From The 
Oric 1 circuit featured in Oric 
Owner 5. 


a 


Firstly, it will not work 
unless the sync pulse is 
added. 

Secondly, by putting equal 
resistances in the R, Gand B 
lines, red green and blue will 


screen would be a uniform 
grey. : 

The following circuit 
diagram does the job quite 
well. It is worth 
experimenting with different 


all come out in the same 
shade of grey. Using software 
written for a colour monitor, 
this could be a problem! The 


resistances before doing the 
final assembly. 


D. J. Wyper, Glasgow 


PIN I PIN Z PIN 3 PIN 4 PIN 5 
red green blue sync gnd 
° 
Q 
Ground 
Composite 
signal 


Notice of Renewal 


Before you throw away the envelope this issue of Oric 
Owner came in, look at the address label. If there is an R 
next to your name, it means your subscription should be 
renewed, and this is the last issue you'll get on your 
current subscription. 

Fortunately, a new subscription won't cost as much as 
the old. We've been able to cut costs, so the next six 
issues will cost just £7.50, instead of £10.00. European 
subscriptions are £10.98 for six issues. Contact us for 
overseas rates: You'll find a form at the back of this issue. 
Alternatively, if you don't want to cut up the issue, drop 
us a line with a cheque made out to Tansoft Ltd. We look 
forward to having you with us for the next six issues. 


| | enclose a cheque for...................0:.. (Cheques payable to Tansoft Ltd)| 
| NGAI caeccnccsspcecces sass acpiscSrasasssdsipatcectctopeneaiaatelibeajahiatecdcneopbsbencttabasdanapeasdiiins tai’ | 
| PRESS sz csssnapociciancaincssesenntnsctsbasobp init a elated saaaastuasesniginsetdeestassvitie | 
besa ahaa asec poeta ate as | 
| SORRAT Aine teTOT eas aR ER aen RTs POStCOdE......cesescssssssssssnneses | 


| Back issues are available for £1.20 each. If you missed your first | 
| free issue contact your dealer or Oric Products International who will | 
| supply you with one. | 


TAM SSP TF tensor Ltd, Units 1 & 2 


AND FORTHLY ... 


Forth enthusiasts may be 
struggling with the Money 
Manager listing given in Oric 
Owner of December/January. 


Screen 1 

0 (PRNTR PACKAGE FOR 
MONEY MANAGER- 
CONTROLS & 
HEADINGS) 
: TAB 9 EMIT: : PRINIT 
PON 27 EMIT 64 EMIT: : 
BIGCH 14 EMIT: 
: U/L 27 EMIT 45 EMIT 1 
EMIT : : NU/L 27 EMIT 45 
EMIT 0 EMIT: 
3 : SETTABS 27 EMIT 68 
EMIT 11 EMIT 28 EMIT 38 
EMIT 48 EMIT 
58 EMIT 68 EMIT 0 
EMIT: : SMCH 20 EMIT: 
: LICAP TAB BIGCH U/L. 
“ LIST OF ITEMS” NU/L 
SMCH : 
6 : LIHEAD U/L." TITLE" 

TAB TAB .“ CR" TAB .“ 
DR" TAB 


~ 


ine) 


a 


SCREEN 2 


Two screens were omitted 
from the listing. Here they 
are... 


.“ START” TAB .“ FINISH" 

TAB ." PERIOD" NU/L: 

8 : FRCAP TAB BIGCH U/L 
.“ FORECAST REPORT” 
NU/L SMCH : 

9 : FRHEAD1 .“ FROM" 
NOW .DATE .“ TO" FIN 
.DATE .“ WITH A" 

10 ." STARTING BALANCE 
OF #" BAL D@ .STERL : 

11 : FRHEAD2 U/L ." DATE" 
TAB .“ TITLE” TAB." CR’ 
TAB 

12." DR" TAB ." 
BALANCE” NU/L : 

13 : CR/DR AMOUNT + D@ 
3 PICK C/D + C@ 68 = IF 
TAB .“ #' STERL 

14 ELSE ." #” STERL TAB 
THEN : 

15 —— 


Ww) 


0 (PRNTRPACK/MONEY MGR-USER WORDS LIST-ITEMS 


& FORECAST-REPORT) 


1 :.REC DUP 16 TYPE TAB DUP CR/DR TAB DUP START + 


.DATE TAB 


2 DUP FINISH + .DATE TAB .PERIOD : 
3 : PRXSAC DUP NEXT + .DATE TAB DUP 16 TYPE TAB 


DUP CR/DR TAB 


4 DUP AMOUNT + D@ ROT C/D + C@ = IF DMINUS 


THEN BAL D@ D+ 


5 OVER OVER BAL 2+ ! BAL! DUP ROT ROT ." #” STERL 


0< IF 
6 ." DR" ELSE ." CR" THEN : 


7 : LIST-ITEMS RECORD DROP PRINIT SETTABS CR LICAP 


CR CR LIHEAD 


8 CR TOP MAXRECS 0 DO RECORD DUP C@ 32 = 0= IF 


CR .REC ELSE DROP 


9 THEN DOWN LOOP CR ." END LIST” CR POFF : 
10 : FORECAST-REPORT CLS RECORD DROP FROMTO? 


PRINIT SETTABS FRCAP 


11 CR CR FRHEAD1 CR CR FRHEAD2 SETIST BEGIN 


EARLIEST DUP NEXT + 


12 FIN LATER WHILE DUP DUP NEXT + SWAP FINISH + 


LATER IF DUP CR 


13 PRXSAC THEN UPDNXT REPEAT DROP CR ."END 


REPORT" CR POFF : 


14 FORTH DEFINITIONS LATEST 12 +ORIGIN ! HERE 28 


+ORIGIN ! 


15 HERE 30 +ORIGIN ! HERE FENCE! ." ***":S 
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CINDERELLA 


Disaster Weg—_—§ 


Cinderella, the adventure in 
Oric Owner 5 has a number 
of bugs in the listing. Here are 
the corrected lines. 


400 IF C$="RUN"THEN 
GOSUB 2570 

440 IF (B$="N" OR 
LEFT$(ZS,@)="GO N") 
AND S%(P%.1)<>0 
THEN P% = S%(P%,1) : 
K=1 


ORIC COPY 


If you use the Oric Copy 
program from issue 5 you will 
find that the MCP40 printer 
prints a __ instead of a £ sign. 
Mr P. R. Mitchell of Ayrshire 
has a modification that will 
result in a # being printed. 

At #040D, replace 207BF5 
with 4C6D04. 


1690 REM INVENTORY 
ROUTINE 

1200 DATA on the main road 
leading North/South, 
32,35,0,0 

1111 DATA ina hallway. The 
staircase leads up from 
here., 0,0,3,1 

2220 .. haven't 


Then insert the following 
#046D CO5F [ CMP #5F 
#047F [FOO6 [ BEQ #0477 
#0471 207BF5 [ JSR #F57B 
#0474 4C1004_ [ JMP #0410 
#0477 A923 [LDA #23 
#0479 4C7104 [JMP #0471 


October/November. It had 
some pretty major bugs. 
Reader Mr R. Entwistle of 


sub-editing routine still needs 
a little work. Here are his 
suggested corrections. 


Add LORES 0 after every CLS 


command. PLOT commands 
cannot plot in column 0 when 
in the TEXT mode. 


460 GOTO 120 


Ys in 1030 and elsewhere 
should be the f symbol. 
¥g should be a < sign and 
¥%. a> sign. 


1115 ....: GOTO 1122 


8050 IF P=1 THEN 8200 


TELEPHONE DIRECTORY 


Problems arose with the 
Telephone Directory listing of 
the Feb/March Oric Owner. 


the name-number arrays 
created with a simple CSAVE 
command. 

If you have an Oric-1 this 
program will not run without 
extensive modification to give 


an array saving and array 
loading routine. However, if 
you own an Atmos, you could 
use the STORE routine. 
Replace CSAVE in line 530 
with STORE. You will also 
need to build in a routine to 
use the RECALL command of 
the Atmos to reload the array 
into memory. 


ATMOS CONVERSION 


Atmos owners wanting to use 
listings for the Oric-1 
computer won't find 
conversion very difficult. With 
a BASIC program, all you 
need to do is to add one to 


the first, X co-ordinate of any 
PLOT command. Remember 
to alter variables that relate to 
this figure too. Programs will 
then work as they're meant to 
work. 


THE COMPETITION- 
90 HOBBITS TO BE WON 


Why spend £14.95 on The 
Hobbit when you might win 
one for the cost of a stamp? 
We have 50 copies of the 
game to give away. Solve the 
puzzle and one of them could 
be yours. 

Entry is simple. The 
12 names that are from or 
related to The Hobbit. They 
could be written forwards, 
backwards, horizontally or 
vertically. All you have to do 
is find the names, write them 
on the back of a postcard or 
sealed envelope and send 
them to us. 
The address is 


Hobbit Competition 
Oric Owner 

Unit 1 & 2, 

Techno Park, 
Newmarket Road, 
Cambridge 


Entries must arrive by last 
post, 30th April, 1984. All 
correct entries will be put ina 
box and the 50 winners 
chosen. Only one entry per 
person is allowed, and you 
must remember to put your 
address on the entry. 


The Game 
Playing The Hobbit is an 
experience. You are plunged 
into the fantasy world of 
J. R. R. Tolkien's Middle 
Earth, peopled by trolls, 
dwarfs, wizards and wargs. 
Your task is to recover the 
‘Dragon's treasure. You'll meet 
many of the characters from 
the book, converse with them, 
have them.as allies or maybe 
fall out with them. As 
adventure games go, The 
Hobbit is a masterpiece. It is 
only fitting that it took the 
inaugural Golden Joystick 
award for Best Strategy Game 
of the Year. 
The game is supplied with 
a copy of the original book. 
To solve the adventure, use 
the book as a guide. The 
game follows the book's plot 
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pretty closely. The display 
uses both text and graphics. 
graphics illustrate key 
locations, while the text tells 
you what's going on. There 
are no sound effects to annoy 
neighbours, 

While writing The Hobbit, 
the team devised some new 
programming techniques that 
put The Hobbit in a class of its 
own. The first is that the 
program accepts inputs very 
close to ordinary English. The 
language is called Inglish. It 
knows over 500 words and 


[P|D|Vviv|M|E 
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few hard and fast rules need 
be followed to communicate 
with the computer. No 
adventure game has ever . 
been this user friendly. 
Another breakthrough is 
Animaction. The characters 
you'll meet act independently 
as the. game proceeds. They 
make their own decisions and 
influence the course of the 
game. You'll have to learn 
how to influence other 
characters. You can talk to 
them quite freely in Inglish. 
Other useful features of The 


VE 
Fact sheet 


Company: Melbourne House 
Established: 1977 

Offices: UK, USA, Australia 
Mail Order address: 131 
Trafalgar Road, Greenwich, 
London SE10 

Customer Service: Church 
Yard, Tring, Herts HP23 5LU 
Sales & Marketing: Cable 
Yard House, Cable Yard, 
Richmond, Surrey TW10 6TF 


Oric software: The Hobbit 
£14.95 


Oric books: Meteoric 
Programming, £5.95 


Other books: Guide To 
Playing The Hobbit, £3.95 


Computer And Video Games 
Book Of Adventure, £5.95 


Hobbit are a printer toggle 
so you can get a hard copy 
record of how a game 
proceeds, a pause feature, 
and the facility to save a 
game to tape for later use. 
The instruction booklet 
explains commands 
thoroughly, though playing 
the game is a continual 
learning experience. 

There are many solutions to 
The Hobbit, and many, many 
traps. For those who get 
really stuck, Melbourne 
House will supply tip sheets 
from their Customer Services 
department. There is also a 
book, ‘The Guide to Playing 
The Hobbit,’ by David Elkam 
and priced at £3.95. It details 
one possible solution. There's 
no need to go to the lengths 
of one player who range 
London four times from New 
Zealand to get out of a tricky 
situation. 

If you are already a Hobbit 
player, and have some tips or 
advice for other players, send 
it to Oric Owner. If there are 


enough tips, we will start a 


Hobbit Help feature. 
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PINBALL 


Once upon a time every good pub, cafe and 


entertainment arcade had at least one pinball machine. 
Now the space invader and it successors have replaced 


the pinball. If you regret the passing of that particular 
aspect of your youth, this program from M. Russell of 
Keighley, West Yorkshire is well worth entering. 


This pinball game is called Demon's Den. Up to four 
players can compete for top score, with three balls each. 
Keys 1 to 9 control how hard the ball is struck at the 
beginning, and how hard the flippers strike. The higher 
the number, the harder the ball is struck. There's no tilt 
though, but go easy on your keyboard. 


Just like the real pinball machines, the Oric uses sound 
and colour to good effect. There are bonuses too, and it 
will take a good deal of practice to get a high score. 
We've managed to get 124,268 and are sure somebody 
out there can beat that. 


The program itself is pretty straightforward, and in 
BASIC. It is well structured and a good example of how 
logical thinking can make even the vagaries of the 
pinball machine be realised by the Oric. 


CHARACTER REDEFINER 
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The ability to redefine characters is one of the major 
tools of a good games programmer. Here’s a short 
program that lets you redefine any character pixel by 
pixel. You'll be able to build exactly the character you 
want. 


Instructions in the program explain how it works. You are 
presented with a coloured matrix of eight by six cells. 
Using the cursor control keys and a simple on/off feature, 
you can turn any pixel in the matrix on or off to construct 
the character you want. 

You are also prompted to enter the character you want 
redefined, or its ASCII number, and given a repeat 
option at the end. Characters will remain redefined until 
your Oric is reset. 

This program has no means to store data figures that 
could be used in other programs to duplicate the 
character you have redefined. However, from the shape 
on the matrix, it shouldn't be too difficult to work out the 
code for each of the eight lines of the character. The six 
columns, from the left, have the values 32, 16, 8, 4, 2 and 
1. Add together the column values for all pixels that are 
turned on in a line and you have the data number for that 
line. Use the eight such numbers from each matrix, and 
the code for the character, in future programs. 

Now, can anyone redefine their Oric to print Japanese 
characters? 


Se WUC 


| 


SIMPLE SENTENCES 


We all know that computers make excellent 
educational tools. They are infinitely patient, won’t make 
mistakes and can be a great asset in the home. Here’s an 
educational program S. W. Lucas of Cheadle Hulme, 
Cheshire, designed to teach young children simple word 
recognition. 
What it does is to print out a short sentence with a word 
missing. Above the printed sentence, four boxes are 
drawn, They each contain a possible solution. An arrow 
moves below the boxes and the child presses a key 
when the arrow is below what is thought to be the 
correct solution. 

That's the signal for a loud right or wrong sounds, with 
the correct answer printed out. After ten sentences, a 
score is given, a rating and prompts for entry of the 
child's name. A repeat option is also given. 

REMs throughout the listing explain how the program 
is constructed. There are up to sixty sentences to choose 
from, and more could be added. You can also change 
the number of questions per round. 

The program is aimed at five to seven year olds. So, 
type it in, sit them down at the keyboard and let Oric 
play teacher for a while. 


ANALYSIS 


Computers aren’t only for fun and games. There is a When RUN, you are asked for a title of the analysis, how 
serious side to them too. This program puts the Oric to many entries there are to be and column headings. 
work analysing sales figures. It is by Rob Sibthorpe of There can be up to ten columns for each entry, but the 
Fordingbridge, Hants. last must be cost. 


You then make the entries, following the on screen 
prompts. To reserve space for later data, enter 0. 


A menu appears next on screen. These are the 
options... 


. EXTRACT COSTS 

. LIST PARTICULAR ENTRY 

. LIST COLUMN VARIATIONS 
. LIST LIKE ENTRIES 

. LIST ALL ENTRIES 

. LIST SPARE ITEMS 

. CHANGE ENTRY 

STOP 


ONDARwWDOH 


Follow the prompts from here and the program runs 
like a well oiled machine. It isn't possible to save data to 
tape, but this program should enable an astute analysis of 


costs, sales or whatever. As a BASIC business program, 
Aa | it is very useful and does indeed demonstrate that the 
—1_\ me Oric belongs in the office as well as the home. 
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SPELLBUZZ 


Education seems to be a major theme in this issue. 
Our second program of an educational nature comes 
from Rob Sibthorpe of Fordingbridge in Hampshire. 


Written for seven to ten year olds, Spellbuzz is a spelling 
test. It runs from a dictionary of 100 words. These could 
be added to or changed to suit different age groups. 


When RUN, three alternative spellings of a word, ina 
random order, are listed. The child is prompted to enter 
the correct spelling. The correct spelling is then printed 
out double height and a smile or frown face indicates a 
right or wrong answer. After ten words a rating is given 
accompanied by sound effects. 


An unusual feature of this program is a permanent, 
flashing title display above the text area. Lines 250 to 295 
do that. Otherwise the program is pretty straightforward 
BASIC. Let the kids have a go with it and their spelling 
should get much betta! : 


3D ROTATION 


We've all seen computers doing three dimensional 


Your inputs determine the size of the cube and how it 


graphic representations of objects. Here’s a program for rotates. Be careful with the inputs though, as the wrong 
your Oric that shows a three dimensional cube rotating type of figures may crash the program. 


in space on the HIRES screen. It is adapted from a 
program by D. F. Round that appeared in the Tansoft 
Gazette two years ago. The updater is Mr M. J. Bunce 
of Rugby, Warwickshire. 


18 Onc Owner 


You'll first be asked for the eye position. Stick to the 
150 to 200 range. Smaller values may give too large a 
cube, and a DRAW command will give an error 
message. 


Next input are the three direction cosines, separated 
by commas. Suggested inputs are 


1,0,0— pure rotation about X axis 
0,1,0 — pure rotation about Y axis 
1,1,0- rotation about both axes 


Finally you'll be asked for the total degrees to be 
rotated and the step, the values separated by a comma. 
For a pure rotation about one axis, a 90° total is all you 
need to see the whole effect. Remember that 360° gives 
a full rotation. 


For the step, we’d suggest five degrees. Anything less 
will mean very small changes between consecutive 
drawings. Larger steps will mean less drawings to reach 
the total rotation. 


Experiment with different figures and you'll see cubes 
in ways you never thought possible. Now, who can do a 
rotating pyramid? 


Software LIEGE 


INDEX 


SIMPLE SENTENCES 
A program that teaches word recognition, for young children, Page 20 


PINBALL 
If you didn't misspend your youth, here’s your chance to become a pinball 
wizard, Page 24 


CHARACTER REDEFINER 
Redefine characters quickly, easily, so you can make your own games 
characters or symbols, Page 28 


3D ROTATION 
A graphics display program that shows solid objects rotating in space, Page 29 


SPELLBUZZ 
Improve spelling abilities with this useful educational listing, Page 31 


ANALYSIS 
Business people will appreciate this sales analysis program. It does everything 
but save data, Page 34 
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SIMPLE SENTENCES 


REM XXXSIMPLE SENTENCES xxx 
REM xXxSLITTABLE FOR 5-7 YEAR OLDSxx 
REM *kx WRITTEN BY S. W. LUCAS *xx 
REM *xkxk <C> August 1983 *xkx 
AAS="Simp le sentences" 
AB$S="written for the ORICi" 
? ACS="by S.W. Lucas " 
10 HIRES 
12 PAPER3: INK4 
16 REM RQUTINE TO PRINT THE TITLES ON T 
HE HIGH RESOLUTION SCREEN 
28 CURSET2@, 28,3 
30 FOR A = 1 TO LENCAAS) 
32 CHAR ASC(MNIDSCAA$,A,1)),90,1 
33 CURMOV10,9,8 
35 NEXT A 
36 CURSET 28,58,3 
38 FOR A = 1 TO LENCABS)3 
39 CHAR ASC(MID$CABS,A;,1)),8,1 
4@ CURMOV19,@,@ 
41 NEXT A 
43 CURSET 28,898,3 
44 FOR A = 1 TO LENCAC$) 
45 CHAR ASCC(MID$S$CAC$,A;,133,8,1 
46 CURMOU 18,8,9 
4? NEXT A 
1@@ REM THE ARRAY A$CX,Y) HOLDS THE SEN 
TENCE TOGETHER WITH THE FOUR 
11@ REM ALTERNATIVE ANSWERS. THE CORREC 
T ANSWER IS HELD AS A NUMBER IN 
115 REM BSCX) WHICH IS READ FROM THE ST 
H DATA ITEM ON EACH DATA LINE 
128 DIM A$(68,5),BC(68),CC18) 
13@ GOSUB 278 
14@ GOSUB128@ 
15@ GOSUB 1718 
188 GOSUB133@ 
190 SC=0 
195 IF CB$="N" OR B$="n"} THEN END 
2@@ RUN 
21@ END 
211 REM THE REMAINDER OF THE PROGRAM CO 
NSISTS OF SUBROUTINES ONLY 
226 REM THE FIRSTSUBROUTINE IS TO 
23@ REM READ THE DATA INTO THE 2-DIMENS 
IONAL ARRAY ASCX; YI 


248 REM EACH QUESTION HAS 4 ALTERNATIVE 
S 

25@ REM FOLLOWED BY THE NUMBER OF THE C 
ORRECT ALTERNATIVE 

26@ REM THIS ANSWER IS HELD IN THE ARRA 
Y BCX) 

270 FOR X =1 TO 6@ 

280 FOR Y = 1705 

29@ READ AS$CX,Y) 

38@ NEXT Y 

31@ READ BCX) 

32@ NEXT X 

33@ DATAJi LL found a in the sand. 
sshell,shade,;shop,ship,1 : 
348 DATAYou can write with a ---;pin,pa 
Nnyspen;tin,3 

35@ DATADad said he had --- the garden, 
dog, log,;dug,bag95,3 

368 DATABen said “I hit the ball with a 
---",bag;bat,;bin,bun,2 

378 DATAThe baby sleeps in a ~~~;caty;cu 
tynut,cot,;4 

388 DATAYou fish with a ---,red,rod,rid 
3TUQ;2 

398 DATATom --- the ball into the pond. 
shit;hat;hut;hot,1 

408 DATAMum will eat the ---,ban;bin,bu 
nyben;3 . 

41@ DATADad put the --- in the bin,ten, 
tan,tip,tin,4 

42@ DATATom will --- in the bus.;set;ssi 
t»sun;sum,2 

43@ DATAMum put on her --~ to sit in th 
e sun;hut;hat,hit,his,2 

44@ DATABen had -—-—- in the park; fun;,sun 
» fin, fans 1 

45@ DATAJi lL took her --- to the shop., 
big;ba9,bug,be9,2 

460 DATATom ---—- for the bus;,runs,;,pens, 
puts;dive,;1 

470 DATAMum will —--- a cake for me,bak 
e,rake, Lake, fake,1 

48@ DATAShe met Tom in the ----.,lark,b 
ark,park,mark,3 

49@ DATAJiLL Likes to ---= her bike.,ri 
de,bide,side,tide,l 
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50@ DATABill Likes to --- the animals i 
n the zoo.;,see;,;saw;sun;,sip;l 

51@ DATAThey want to go to the ----;lar 
k,mark,dark,park,4 

528 DATAYou can ride in a ---.;far,;bar, 
car,tar,3 

538 DATAThe like to eat grass.;sh 
eet,;shell,ships,sheep,4 

540 DATABilLL sat ona -»chair,chas 
e,chin,chips, 1 

55@ DATADad iikes to play with the ---, 
fat,;mat;cat;pat,3 

568 DATAIt goes ---- at night.,bark,dar 
k,;mark,park,2 

578 DATATom Likes to read a —----; look,t 
ook,book;,cook,3 


58@ DATAI would Like to --- a cake,pat, 


tap,eat,bat,3 

59@ DATAMum poured the milk out of a -- 
-, jug, lug,tug,bug,1 

608 DATAThe boy will go to --- tonight. 
»sbed,bud,bug;,bun,)1 

618 DATAPaul wants a —-- for a pet, log, 
dog; f09;j09,2 

620 DATAThe boy played with a ----,kite 
ymite,site,bite,1 

63@ DATAWe put the plant in a plant --- 
-»lot,;tot,dot,pot,4 

64@ DATAJohn played cricket with a ---- 
»bull,bell,ball,bill,3 

65@ DATAThe drink of tea was very ---;h 
ut,hit;hat,hot,4 

66@ DATAThe number after nine is ---.;5t 
inytan,ten,one,3 

670 DATAThe boy wrote with a ---.spingsp 
an,;pun,pen,4 

68@ DATAThat man is very ----.,tall,til 
[,tell,toll,1 

690 DATAThe dog chases a --~-.;cut;,cat;c 
ots,sit,2 

708 DATAI Like to play the game of --~- 
and seek. ,hide,tide,ride,side,1l 

718 DATAJim swam to the ---- of the bat 
h.,ride,;side,hide,tide,2 

72@ DATAWe went to the ---- to buy aca 
ke.,ship,shop,shut,shed,2 

23@ DATAJohn went for a ride ona 
-ystrail,tramp,train,trap,3 

74@ DATAThe number after two 

throw, thank,think, three, 4 


75@ DATAI don’t want to ---- down the s 
tairs.,tall,hall,fall,call,3 

768 DATAMary had Lots of --- playing wi 
th her ball,sun,; fun,bun,run,2 

778 DATADad was --- when he had to 90h 
ome.,sad, fad,dad, lad, 1 

78@ DATADad had to ~--- his broken bike 
»»send, fend,mend, lend,3 

793@ DATAWe had to ---- at the side of t 
he road.,stand,sting,start,stray;1 

8@@ DATAPaui went to the park to ----., 
play,plug,;plus,;,plum,1 

81@ DATAPaul was ---- for school yester 
day.,gate,hate,rate, late,4 

82@ DATAMum had to her money.,spi 
_Ll,spend,spray,spell,2 ‘ 
83@ DATADad cut his ---- this morning.; 
chain,;chair,;chin,chap,;3 

848 DATAMary put the food in a ----.;5f1 
sh,dish,wish,wash,2 

*85@ DATAI couldn’t ---- up this morning 
»scake,rake,wake,take,3 
~ 868 DATAI drank a of water.;,class 
»glass,grass;brass,2 

87@ DATADad undid the ---- with his key 
»3Tock,dock,sock, Lock,4 

88@ DATAWe have a fish ---- in our hous 
e.,Tank;bank,tank;sank;3 

898 DATAJi LL looked at her ---- in a mi 
Tror.,race; face, lace,pace,2 

9@@ DATAWe planted a rose in the ----., 
soil, foil,boil,toil,1 

9@5 DATAThe dog Likes to ~---.,mark,bar 
k,;park, lark,2 

91@ DATAI missed the ---- bus and had t 
o walk home., last,mast,cast,vast,1 

92@ DATAShe sees Tom in the -—-~-.;toad; 
load, road;sad,3 

93@ RETURN 

958 REM THE NEXT SUBROUTINE DRAWS 4 BOX 
ES ON THE HIRES SCREEN 

96@ REM TO HOLD THE 4 ALTERNATIVE ANSWE 
RS 

965 REM THE BOXES WILL HOLD WORDS OF UP 
TO 5 LETTERS ONLY 2 

970 HIRES 

971 REM RESELECT THE COLOURS OF THE HIR 
ES AREA 

972 PAPER? 
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373 
374 
375 
37? 
382 
338 
1800 
1818 
1828 
1638 
1848 


INK4 

YY=20 

FOR G= 1 TO 4 
CURSET YY,5@,1 

DRAW 39,0, 1 

DRAW @, 32,1 
DRAW -39,@,1 
DRAW @,~-3; 1 
YY=YY+52 
NEXT @ 
RETURN 


122@ REM THE FOLLOWING SECTION OF THE P 
ROGRAN 


1238 
1248 
SSIBL 
1258 
THE 
1268 
ASKED 
1270 
THE 
1282 
1298 
1291 
IDEN 
1292 
L283 
OoTO 1 
13088 
1318 
1334 
1348 
1356 
H WER 
135? 
1368 
1388 
R THE 
1338 
1339 
1488 
1418 
1428 
1438 
1448 
1458 
146@ 
1478 
14808 


REM CHOOSES A RANDOM SELECTION OF 
REM TEN QUESTIONS OUT OF THE 6@ PO 
E QUESTIONS 

REM THE ARRAY CCX) IS USED TO HOLD 


REM NUMBER OF THE QUESTIONS TO BE 


REM TO CHOOSE MORE QUESTIONS ALTER 
NEXT LINE 

FOR X=1 TO 18 

LET CCX)= .INTCRND(1)X6@)+1 

REM THE NEXT LINE ENSURES THAT TWO 
TICAL QUESTIONS 

REM DO NOT COME NEXT TO EACH OTHER 
IF CCXI>1 AND CCCXI=CCX-1)) THEN G 
238 

NEXT X 

RETURN 

SC=@ 

REM FIRST SET THE SCORE =@ 

REM THEN SET THE 1@ QUESTIONS WHIC 
E CHOSEN AT RANDOM 

REM FROM THE 6@ ALTERNATIVES 

FOR TT = 1 TO 16 

REM HIRES IS USED LIKE CLS TO CLEA 
HIGH RES SCREEN 

HIRES: 

REM THEN DRAW THE 4 BOXES AGAIN 
GOSUB 978 

GOSUB147¢8 

GOSUB1 768 

GOSLIB214@ 

NEXT TT 

GOSUB2482a 

RETURN 

G=BCA) 

A=CCTT) 


1498 
1433 
OM OF 
1494 
1495 
1580 
1518 
1528 
1578 
1580 
1582 


REM A =CCTT) HOLDS THE NUMBER 

REM PRINT THE QUESTION AT THE BOTT 
THE SCREEN IN THE TEXT AREA 

REM CHOOSE A COLOR FOR QUESTION 
INK4:PRINT A$(A,1)3 

REM OF THE CURRENT QUESTION 

REM G=BCA) HOLDS. THE ANSWER 

REM TO THE CURRENT QUESTION 

REM THE NEXT SECTION PRINTS THE 
REM WORDS IN THE BOXES - 

PP=22:REM SET X POSITION OF CURSOR 


FOR THE FIRST WORD 


1584 


REM THE NEXT SECTION PRINTS THE 4 


ALTERNATIVE WORDS 


1585 
1538 
1595 
1688 
1618 
1628 
16328 
1635 
WORD 
1648 
1658 
1678 
1688 
16398 
1788 
1719 
1728 
1736 
1748 
1768 
1778 
1788 


1798 


FOR P= 2 TO 5 

CURSET PP,60,3 

N¢=ASCA, PJ 

FOR 2= 1 TO LENCN$) 

CHAR ASCCMID$SC(N$,2%,133,0,1 

CURMOU 7,8, 

NEXT 2 

PP=PP+52:REM MOVE CURSOR FOR NEXT 


NEXT P 

RETURN 

REM THIS SUBROUTINE IS TO DEFINE 
REM THE CHARACTERS TO BE LISED 
REM AS A POINTER 

REM TO POINT TO THE WORDS 

GF $=CHR$( 129) 

GG$= CHR$C94) 

GH$= CHR$(124) 

RETURN 

D=32 

E=180 

REM PROCEEOURE TO MOVE ARROW ACROS 


REM THE SCREEN . TO POINT AT THE 4 


BOXES IN TURN 


1808 
1828 
183@ 
ION 
1846 
1858 
1868 


REM UNTIL ANY KEY IS PRESSED 
REPEAT 
REM D = X POSITION AND E = Y POSIT 


REM OF THE ARROW 
ZaP 
REM SOUNDS PING EACH TIME THE ARRO 


W MOVES 


1988 
1918 
1928 


CURSET D,E,3 
CHARS4,;@,; 1 
CURMOV @,8,3 


€¢ 4auMC OU 


1930 
13950 
1951 


CHARI 24,0, 1 
WAIT 158 
REM CHOOSE APPROPRIATE WAIT TIME F 


OR AGE OF PUPIL. SMALL VALUE = HARD 


1968 
1978 
1988 
1985 
1988 
2088 
2018 
2015 
2828 


REM THEN ERASE THE POINTER 

CURSET D,E,3 

CHAR 94,8,2 

CURMOV@, 8,3 

CHAR124, 8,2 

D=D+52 

REM MOVE ARROW 

REM F= POSITION ARROW STOPS IN 

REM IF ARROW GOES OFF SCREEN; RESE 


T IT TO POSITION 1 


2049 
2058 


IF 0>198 THEN D=32 
REM RESET CHOICE WHEN ARROW GOES O 


FF SCREEN 
S$=KEY$ 
REM TESTS FOR ANY KEY BEING PRESSE 


2878 
2875 
D 
28828 
2885 
2898 
2695 
2180 
2118 
2120 
2125 
2138 
2148 
2158 
2168 
2188 
21398 
B2318 
2208 
22093 
PONSE 
2218 
2228 
E 
2238 
2235 
2236 
2248 
2242 
2245 
2248 
2250 
WER 


UNTIL S#<>"" 

REM SET VALUE OF F 

IF D=32 THEN F=4 

IF D=84 THEN F=1 

IF D=136 THEN am 

IF D=188 THEN F= 

IF F>4 THEN F=4 

IF F <1 THEN F=@ 

RETURN 

HIRES 

PAPER? 

INK 4 

REM CHECK FOR CORRECT RESPONSE 
IF F=BCA) THEN GOSUB2218 ELSE GOSU 


RETURN 
REM SUBROUTINE FOR THE CORRECT RES 


SC=SC+1 
REM IF RIGHT ;- INCREMENT THE SCOR 


REM NOW PRINT ON THE SCREEN RIGHT 
RRS="right" 

CURSET 89,75,3 

FOR 2= 1 TO LENCRR$) 
CHARASCCMID$CRR$,2%,13),851 
CURMOUB, @, 8 

NEXT 2 

REM NOW GIVE A SOLIND FOR RIGHT ANS 


2251 
2255 
2260 
2262 
2264 
2265 
2267 
2380 
2385 
2318 
2315 
2320 
2325 
2338 
2335 
2336 
2348 
2341 
2344 
2346 
2348 
2343 
2358 
2353 
2354 
2355 
2356 
2357 
2368 
2370 


FORX=255 TO 1 STEP -1 
SOUND1,X,15 

NEXT X 

FORX=1 TO 255 

SOUND 1,%,15 

NEXT X 

SOUND °1,8,8 

RETURN 

REM SUBROUTINE FOR WRONG ANSWER 
WW$="wWrong" 

REM TO WRITE WRONG ON THE SCREEN 
CURSET 89,75,3 

FOR 2= 1 TO LENCWWS) 
CHARASCCMID$S$CWWS, 2,133,851 
CURMNOU 8,@,@ 

NEXT 2 

WWE="It was "“+AS(A, BCA +13 

REM TO PRINT THE CORRECT ANSWER 
CURSET 5@,158,3 

FOR 2= 1 TO LENCWWS$) 
CHARASC(MID$CWW$, 2,1)),8,1 
CURMNOV 8,0,8 

NEXT 2 

REM SOUND EFFECT FOR WRONG ANSWER 
FORY=1TO3:FOR X= 158 TO 258 
SOUND1,X,15 

NEXTX, Y 

SOUND1,98,@ 

WAIT 288 

REM PAUSE TO LET CHILD READ WHAT T 


HE ANSWER SHOULD HAVE BEEN 


2398 
2400 
2418 
24208 
2438 
2440 
2458 
2468 
2478 


RETURN 

TEXT 

REM ROUTINE FOR PRINTING RESULTS 
LET Ag=s"" 

IF SC>S THEN A$="go00d" 

IF SC>? THEN A¢=" very good" 

PAPER 7? 

INK @ 

PRINT :PRINT:PRINT:PRINT:PRINT" you 


r score was "5SC;" out of 18" 


2488 
e's 

2498 

2588 


PRINT:PRINT:PRINT"What is your nam 


INPUT NAS 
PRINT =PRINT :PRINTCHR$( 129) ; "Thank 


you for playing "“;CHR$(132) ;NAS 


251@ 
want 
2526 
2538 


PRINT :PRINT :PRINTCHR$(13@)3"Do you 
to play again?" 

GETB$ 

RETURN 
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5S GRAB 

18 REM >>>>>>>>> >> KK EEK KKK KK 

2@ REM > Pinball Demons Den < 

3@ REM > M Russell 170683 < 

4@ REM > for Oric Owner 4 

45 REM >>>>>>>>>>> CK KEE KKK 

5@ POKE618, 16 

6@ HC2)=1 

19@ GOSUB480a80 

185 CLS 

11@ GOSUBS8@B8e8e 

12@ DOKE616,514:PRINT:PRINT" HOW" tPRINT 
" MANY" =PRINT'PLAYERS" :PRINT"1 TO 4" :GET 
as 

13@ DOKE616,514:PRINT:PRINT" “SPRIN 
|= "SPRINT" ; “SPRINT - 
14@ IFQ¢$<"1"ORQ$> "4" THENSOUND1, 20@,15:S 
OUND1,@,15:GOTO12@ 

142 FORN=1TOVALCQ$) :-BCNJ=3:SCN)=@:NEXT 
15@ FORN=1T04:A$="SCORE "“+RIGHT$CSTRSCN 
},13:PLOT31,NX3+N-2, A$ =NEXT 

16@ FORN=@T04 :PLOT32;N*4+4, “Q@8Q0G" :NEX 
T:PLOT32,18, "BONUS?" 

17@ PLOT32,24,"BALL 1” 

175 B=1 

18@ FORP=1TOUALCQ$) 

181 GOSUBS88ee 
185 POKE616, (P-1)*4+2:PRINT :POKE617, 31: 
PRINTCHR$(C 140) 

190 X=28:Y=23:J=0:K=-] 

208 PLOTX,Y,;41 

218 PLOT2,@,"PRESS" :PLOT1,1, "ANY KEY" :P 
LOT2,;2,"1 TO 9":PLOT1,3," FOR °” 

220 PLOT1,4, "STRENGTH" :PLOT1;,;5, "OF FIRS 
T' :PLOT1,6," SHOT ":GETS$% 

238 FORN=@TO6:PLOT1,;N," “ SNEXT 
248 IFS¢$<"1"ORS$> "3" THENZAP :WAITS@:SOUN 
D1,0,15:GOTO214 

258 S=VAL(S$)+20 

266 PLOT1,1, "FLIPPER" :PLOT2, 2, "KEYS" :PL 
0T2,3,°1 TO 9":PLOT1,4,"TO UARY" 


PINBALL 


27@ PLOT1;,5, "STRENGTH" :PLOT1,6, "OF SHOT 
288 K$=KEY$:IFK$>="1"ANDK$<="93" ANDD=@TH 
ENGOSUB 1808 

23@ IFD>@THENGOSUB2@@@ELSEPLOT15, 23," 
30@ O=SCRNCX+J, ¥+K) 

318 IFO=32THENS8@ 

32@ IFO=64THEN480@ 

33@ IFO=46THEN4@3a@ 

34@ IFO>34ANDO<41 THEN4060 

358. IFO=63THEN4+89@ 

360 IFO=45THEN41704 

378 IFO=42THEN19@ 

38@ IFO=6@THENGOSLIB628 :GOTOS@a 

39@ IFO=62THEN42320 

48@ IFO=73THEN432@ 

41@ IFO=S3THEN4408 

420 IFO=61THEN44@a 

430 IFO=47THEN447@ 

44@ [FO=S8THEN4580 

45@ IFO=93THEN4540 

460 IFO=91THEN4600 

476 JFO=123THEN4658 

488 IFO=12S5THEN4708 

588 PLOTX,Y, 32 

S1@ X=xX+J 2: Y=Y+K :PLOTX, Y,41 

520 S=S-A:IFS=@THENGOSUB3888 

927 IFY=24THENS32 

538 GOTO280 

532 PLOTX,Y,32 

533 K$=KEY$ 

935 FORU=5T076 :FORZ=1TO1@@STEPU:SOUND1 , 
2, 1@:NEXT2,U:WAIT1@:SOUND1,0,0 

536 PLOT3@, CP-1)*4+2,32 

937 BO=@:PLOT32, 2@, "@@8000" 

338 PLOT31,22," "3SCPJ=SCPIXHC2) 
?GOSUB780@8.:HC1)=8 

533 HC2)=A 

54@ NEXTP 

558 B=BtA 


$2 IeUMO ILO 


IFB=4THEN?@@ 

PLOT37,; 24, STR$(B) 

GOTO18@ 

J=A=RETURN 

K=A =RETURN 

J=-A?RETURN 

K=-A=:RETURN 

K=@0 :=RETURN 

J=@:RETURN 

PLOT14,12," GAME OVER" 

FORN=1T04: IFSCN)>HC@3 THENHCOI=SCN) 
NEXT 

U=28¢ 

PLOT16,15, "Press Y":PLOT16,16,"to p 


*=PLOTI27,17; "again" 


K$=KEY$ :U=U+l ? TFU=388THENGOSLIB822 
IFK$=""THEN? 10 
IFK$="Y" THENI@S 
IFK$="N" THENEND 
ZAP :GOTO718 
PLOT31,1," HIGH" :PLOT31,2,"SCORE " 
M=SC1):P=1:SCPJ=HCQ) -GOSUB7888 
WAIT?@ 
PLOT31,1," *?PLOT31,2, "SCORE 1” 
WAIT155 
SCPJ=M:P=1 :GOSLIB7@8O8 :V=8 :GOTO710 
D=A‘iF=A 
T=VALCK$ 3 
ONDGOTO201@, 2828, 2032 
PLOT15, 23, "C #" :D=D+F :RETURN 
PLOT15,23,°?C #$" 2D=D+F -RETURN 
PLOT15,23,°&8&?C #$%" :F=-1 :D=D+tF ?RET 


J=@:K=1 :S=S+1 

RETURN 

IFK=-AANDJ =ATHENK=A :GOTOS@@ 
IFK=-ATHENGOSUB628 :GOTOSa@ 
IFJ=ATHENGOSUB6 19 :GOTO58a 
GOSUB62@ :GOTO58a 

IF J=-ATHENGOSiB61@:GOTGS8a 
IFK=-ATHENGOSUB6@6 :GOTO58a 
GOSUB6G@ :GOSUB6 18 -GOTO580 
PLOTX, Y, 32:X=X+J > Y=Y+K :PLOTX; Y, 41 
K=-A:PLOTX, Y,0 
IFO<38THENJ=INTCRNDC13*2)-A 


4672 IFO>37THENJ=INTCRNDC1)X2) 

9875 S=S+(TX3) 

4688 GOTO5a80 

4890 IFJXK<@THEN413@ 

4100 J=@-J:K=@-K:GOTO5a@ 

413@ IFK=-AANDSCRNCX, Y-A}=32THENGOSLUBES 
@:GOTOSa@a 

4135 IFJ=AANDK=—-AANDY=3THENK=A :GOTO282 
4136 IFJ=-AANDK=-AANDY=3THENK=A :GOTO289 
414@ IFK=AANDSCRNCX, Y+A)=32THENGOSLIBES@ 
>GOTO58@ 

415@ IF J=-ATHENGOSUB6@GBELSEGOSUB62a@ 
41608 GOTO580 

417@ PLOTX,Y,32:X=X+J :Y=Yt+K :PLOTX, Y; 41 
4186 PLOTI1; 1; °N8°SPLOT11;2; "°_}" sPLOT2? 
sl, "N*"?2PLOT27,2,"_1" 

4185 FORN=@TO2@@STEPS@ :SOUNDA,N, 15:WAIT 
8 =NEXT >SOUND1,8,15 

4188 SCPJ=SCP)+200 

41908 GOSUB7882 

4286 PLOT11;,A;"??":?PLOT11,2,°??" :PLOT22 
3A "2?" =PLOT2Z27, 2, "2?" 

4216 GOSLUB6198 

4220 PLOTX,Y,0:X=X+J :Y=Y+K :PLOTX, Y,41:G 
OTOS8A 

4238 SCPJ=SCPJ+INTCRNDC1)*58)+A:GOSUB7A 
aa 

4235 FORN=8TO? :PLAYA, @,N, 1800 :NEXT :SOUN 
D1,;8,15 

4250 IFJ*XK<>OTHEN4300 

4268 IFJ=@ANDRNDCA)>. STHENJ=-A 

4265 IFJ=@THENJ=A 

4270 IFK=@ANDRNDCAJ>.STHENK=A 

4280 IFK=@THENK=—-A 

42938 GOTOSa@a 

4300 IFRNDCAIJ>. STHENGOSUBE6SBELSEGOSUB64 
@ 

4310 GOTO500 

432@ PLOTX, Y,32:X=X+J :Y=Y+K 

~4336 PLOTX,Y,41 

4331 FORI=ATOINTCRNDCAIX3)+A 

4332 BO=BO+300 

4335 SOUNDA, 348, 15 :WAITA:SOLINDA, 488,15: 
WAIT2:SOUNDA, 688, 15 :WAITS:SOUNDA,@,15 
4340 M=SC(P) =N=P :P=5 :S(PJ=BO :GOSUB78@@ 
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435@ BO=SCP) :P=N:SCPJ=M 

4355 NEXTI 

436@ J=INTCRND(13*3)-A:K=INTCRNDC13X3)- 
A 

4361 IFJ=@ANDK=—-ATHEN4 368 

4365 S=S+10:W=6 

43706 IFSCRNCX+tJ, Y+K) <>32THEN4368 

4388 PLOTX,Y,79:X=X+J :Y=YtK sPLOTX; Y3 41 
4398 GOTOS5e8a 

4400 IFJXK<>@THEN4459 

441@ IFJ=@ANDRNDCA)>.SANDSCRNCA+A; YtKI= 
32THENJ=-A 

4412 IFJ=@ANDSCRNCX-A; K+Y J=32THENJ=A 
4413 IFJ=@THEN4418 

4414 IFK=@ANDRNDCA}>.SANDSCRNCX+J, Y-AJ= 
32THENK=-A 

4415 IFK=QANDSCRNCX+J, Y+AJ=32THENK=A 
4416 IFK=@THEN4414 

4450 IFJ=-ATHENGOSLUB6@G :GOTO5aa 

4468 IFJ=ATHENGOSUB628 :GOTOSa@e 

44708 IFJ=@THENJ=A 

4488 IFK=@THENK=-A 

4498 IFJ=-AANDK=ATHENJ=@ 

4492 IFJ=-AANDK=—-ATHENJ=A 

4495 GOTOSaa 

4580 IFJ=@THENJ=—A 

451@ IFK=@THENK=-A 

452@ IFJ=AANDK=ATHENJ=-A 

4522 IF J=AANDK=—-ATHENJ=- 

4530 GOTOSe8 

454@ PLOTX, Y,32:X=X+tJ 2: Y=Y+K =PLOTX, Y; 41 
455@ PLAYA; @; 4, 5068 :SOUNDA; 35@, 15:SOUND 
A,@,15 

4555 IFBO>@THENPLOT1,; 23, "GREAT" =PLOT3; 2 
4, "SHOT3" 

4566 SCP)=SC(PJ+BO :GOSUB7@80 

4565 IFBO>@THENFORU=ATG3S5 :SOUNDA; UX8,AS 
>SOUND2, 8, 15:NEXT =SOUNDA; @, 15 

45708 J=A 

458@ PLOTX, Y,33:2X=X+J :Y=Y+K :PLOTX; Y; 41 
4585 PLOTA; 23, " ":PLOTS; 24," ‘ 
459@ GOTOS5ee8 

4600 PLOTX,Y,32:X=AtJ 2 Y=Y+K =PLOTX; Y; 41 


4604 PLAYA, @, 4,580 :SOLINDA, 352, 15:SOLIND 
A,@,15 

4686 IFBO>@THENPLOT1, 23, "GREAT" :PLOT3, 2 
4, "SHOTS" 

4608 IFBO>@THENFORU=ATO3S : SOUNDA, U8, AS 
:SOUIND2, 8, 15 :NEXT :SOLINDA, @, 15 

4618 S(P)=S(P)+B0 :GOSUB7@ae 

4628 J=-A 

4630 PLOTX,Y,91 ?X=X+J :Y=Y+K :PLOTX, Y, 41 
4635 PLOTA, 23," * :PLOT3, 24, " ; 
464@ GOTOSaa 

4658 H(AJ=HCA)+A:IFHCAI=1@THENPLOTSI ; 22 
» "2K" 3H(2)=2 

4668 IFH(AJ=2@THENPLOT31,;22," 3X" :HC2 
)=3 

4678 iFHCA)=38THENPLOT31, 22," 4x": 
H(2)=4 

4688 PLOTX, Y,32:X=X+J :Y=Y+K :PLOTX, Y, 41 
4698 J=-A:PLOTA,Y,123:X=X+J :Y=Y+K :GOTOS 
aa 

4708 HCAJ=HCA)+A:IFHCAJ=1QTHENPLOTSI , 22 
» "2K" 3H(2)=2 

4718 IFHCA)J=2@THENPLOT31,22," 3X" :HC2 
)=3 

4728 IFH(A)=3Q@THENPLOT31; 22, " 4X": 
H(23=4 

4738 PLOTX, Y,32:X=X+J :Y=Y+K :PLOTX, Y, 41 
4748 J=A:PLOTX, Y,125:X=X+J :Y=Y+K :GOTOS@ 
a 

7888 C=S(P) 

7018 C=C/1908a0 

7828 FORU=@T0S 

7038 PLOT32+U,P*4, INT(C)+48 

7648 C=C-INTCC) 

7058 C=Cx10 

7068 NEXTU:RETURN 

4@00@ FORN=46368T046439 :READA :POKEN, A:N 
EXT 

40018 FORN=46448T046463 :READA :POKEN, A:N 
EXT 

48822 FORN=465441046599 :READA :POKEN, A:N 
EXT 

48838 FORN=46816T046823 :READA :POKEN, A:N 
EXT 
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40@4@ FORN=46832T046847 :READA :POKEN;A:N 
EXT 

4@@5@ FORN=47872T047@73 :READA :POKEN; A:N 
EXT 

4@@55 A=1 

4@068@ RETURN 

400728 DATAG,@,@,90,1,38,32,31,8,8,1,145,4 
8,94,15,48,80,12,5@,13,13,2,68,0 

48088 DATAG, 12,19,44,44, 16,15,8,0,0, 32, 
28,3,0,68,3,0,;0,0,0,32, 38,1,62 

48085 DATAG, 36,63, 63,63,63, 38,8 

40098 DATAB3; 33,33, 33, 33,33, 33,63,19, 38 
398, 38,19, 38,58, 38,19, 30,56, 18,63,38,12 
4@@95 DATAG 

4@018@ DATAG3, 61,58,52, 40, 16, 32, 32, 32, 32 
16, 4@,52,58,61,63,1,1,2,5,11,23,47,63 
40119 DATA, 12,18,33,45,45, 45,45, 45, 45, 
95545; 455 455455 45, 45545; 45, 45, 33,18 
4@12@ DATA12,9 

90138 DATAI2, 38,63, 45, 38,18,12,0,63,63, 
63,63, 63,63,63,63,63,47,23,11,5,;2,1,1 
4814@ DATAG,@,4,4,7,5,19,26,8,8,18,23,5 
@, 18,38, 46,45, 15,15,7,4,8,16,16 

48158 DATA26, 58,58, 48, 16,8,45,4 

98080 REN 

58005 POKE616;1 

58010 R=32:P$=" " :GOSUB68880 

59@2Q P$=CHR$(#C)+"DEMONS DEN" :R=10:GOS 
UB6E8e8 

59625 P$=CHR$(123) ?=R=-3 :GOSUB6E8GG 
58838 P$=CHR$(146) :R=-4 :GOSLUBE68008 
58048 


50858 


5SG@6@ PRINTSPCC8I"??9???, 


58078 PRINTSPC(8)"??7°°?. 


50880 PRINTSPC(8)"??°. 


5@83@ PRINTSPCC8)"?°. 


5@i1@@ PRINTSPCC8)"°?. 


5@11@ PRINTSPCC8)"? 


a 


39@12@ PRINTSPC(8)"?0 


5@13@ PRINTSPC(8)"?7 


59814@ PRINTSPCC(83"?? 


5@15@ PRINTSPCC8i"?? 


at 


S@i6@ PRINTSPC(8)"?? 


5@17@ PRINTSPC(8)"??] 


960188 PRINTSPC(83"??} 


5@19@ PRINTSPCC8)"?°? 


58280 PRINTSPC(8)"?. 


n 


58216 PRINTSPC(8)"°? 


58228 PRINTSPC(8)"?7 


5823@ PRINTSPCC8)"??7 22< 


58248 PRINTSPC(8)"???7 722 ¢ 


98258 PRINTSPC683 "929997 PP PK 


" 


59268 TPP PPM 


58272 


" 


50280 


3O2Z39B PRINTSPO( BI PP PPP ?P PPP PPP PP PEP PPT? 


9@388 PRINTSPCC273","5 

5@3@5 INKS :PAPER@ 

96318 RETURN 

600@@ FORI=iTOLENCP$) :POKE#BB83+R+1,ASC 
(MiDSCP$,1,13)=NEXTI :RETURN 
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CHARACTER REDEFINER 


10D REM RRR R KK KKKKKKKKKKEKKKKKKEKKKEKE 378 PLOTM,N,29 

110 REM *** Character Generator *** 389 NEXTM,N 

120 REM KEK KKK KK KKKKKKEKKKKKKKKKEKEKE 398 GETOPS 

130 REM 490 IFOPS="l"OROPS="2"OROPS="3"THEN42G@ 


149 REM By Kristjon Magnusson 419 GOTO39G 
150 REM 429 AS=" 
160 CLS:LORESG ‘ 
178 PRINTCHRS (17) 430 PLOT6,6,A$ 
188 XS=CHRS (27) 449 FORR=1TO6 
196 PRINT" "*CHRS (11) ;XS;"S";XSs"A 459 PLOTS,R+7,A$ 
INSTRUCTIONS "exg;upm 468 NEXTR 
200 PRINT 470 IFOPS="1"THENK=32:GOTO50@ 
210 PRINT" To determine the coordinate 480 IFOPS="2"THENINPUT" Enter the cha 
where racter ";KS:K=ASC(KS) 
228 PRINT"you want to turn a cell 'off' or 498 IFOPS="3"THENINPUT" Enter the ASC 
lant ® Il code "3K 
238 PRINT"you use the cursors. You use '@'! 596 N=46080+ (8*K) 
and" 518 FORI=NTON+7 
248 PRINT"'1' to change the contents of ea 520 IFPEEK(I)>63THENPOKEI,PEEK(I)-64 
ch" 538 NEXTI 
258 PRINT"cell, You now have three options 549 FORI=®TO7:D=64:C=PEEK (N+I) 
: "eparen 558 FORJ=6T05:D=D- (D/2) 
260 PRINT" 1) Continue without selectin 560 IFC>=DTHENC=C-D:K(1I,J)=1 
g an enlarged character." 578 NEXTJ,I 


278 PRINT" 2) Entering a character from 589 FORI=6TO7 
the keyboard." 598 FORJ=9TO5 


280 PRINT" 3) Entering the ASCII code o 600 IFK(I,J)=1THENPLOT16+J,15+1,17ELSEPLOT 
fa character." 16+J3,15+1,29 


285 PRINTCHRS (11) ;CHR$(11);CHR$ (11) ;CHRS(1 ete REN ee 
1) } CHRS (11) ; CHRS (11) 628 PLOT2,25,"Press 'RETURN' when you are 


290 FORI=0TO7 finished" 

300 PLOT14,1+15,1+48 630 PLOT14,15,176:PLOT16,24,181:Y=15:X=16 
318 NEXT 648 GETHS 

3208 FORI=8TO5 650 IFHS="Q9"THENPLOTX,Y,20 

330 PLOTI+16,24,53-I 660 IFHS="1"THENPLOTX,Y,17 

348 NEXT 678 IFHS=CHRS (13) THEN81@ 

358 FORN=15T022 680 IFHS=CHRS (10) THENY=Y+1:GOTO74@ 

360 FORM=16T021 698 IFHS=CHRS (11) THENY=Y-1:GOTO73@ 
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IFHS=CHRS (8) THENX=X-1:GOTO75@ 
IFHS=CHRS (9) THENX=X+1:GOTO769 
GOTO64G 
“IFY<15THENY=15 :GOTO640ELSE78@ 
IFY>22THENY=22 :GOTO64GELSE77@ 
IFX<16THENX=16:GOTO640ELSE79@ 
IFX>21THENX=21:GOTO640ELSE890 
PLOT14,Y-1,SCRN(14,Y-1)-128:PLOT14,Y,S 
CRN (14,Y)+128:GOTO64G 
780 PLOT14,Y+1,SCRN(14,Y+1)-128:PLOT14,Y,S 
CRN (14,Y)+128:GOT064@ 
798 PLOTX+1,24,SCRN(X+1,24)-128:PLOTX,24,$S 
CRN (X,24)+128:GOT064@ 
800 PLOTX-1,24,SCRN(X-1,24)-128:PLOTX,24,S 
CRN (X,24)+128:GOTO640 
818 FORM=@8TO7 
820 FORN=9TO5 
838 P=SCRN(N+16,M+15) 
835 C(N,M) =P 
840 IFC(N,M)=17THENV (M) =V(M)+32/(2°N) 
858 NEXTN 
868 V(M)=V(M) +64 


870 NEXTM 

88@ CLS:PAPER4:INK62:PRINT 

898 PRINT"You can now either enter the,":P 
RINT 

988 PRINT" 

or" 

918 PRINT" 
920 GETRS 
930 IFRS="1"THENINPUT"Enter the character 
"2FS:Q=ASC(FS) :GOTO97@ 

940 IFRS="2"THENINPUT"Enter the ASCII code 

Ww. 

v 

958 IFQ<320RQ>126 THENPRINTCHRS (11) ;CHRS(1 
4) CHRS (11) :GOT094@0: ELSE97@ 

96@ GOTO92G 

970 FORM=@0T07: POKE46080+ (8*Q)+M,V(M) :NEXTM 

975 PRINT:PRINT:PRINT" Press 'Y' if you w 
ant to define another character." 

988 GETYS 

998 IFYS="Y"THENPRINTCHRS (17) : RUN 

995 PAPER7: INK®@:CLS:PRINTCHRS (17) 


1) Character, 


2) ASCII code.":PRINT:PRINT 


3D ROTATION 


PROGRAM TO ROTATE ANY 3D SOLID 
BODY ABOUT ANY AXIS PASSING 
THROUGH ORIGIN THROUGH 
PRESCRIBED STEPS,CHECK FOR 
VISIBLE FACES,AND PRODUCE 
CORRECT PERSPECTIVE PLOT. 


PAPER@: INK7:CLS:PRINT 
PRINTCHRS (27);"J"3;SPC(2);" 
ROTATION e 
95 PRINTCHRS (27);"J3";SPC(2);" 


ROTATION 
:PRINT: PRINT 
96 PRINTCHRS (27);"J"; "ORIGINAL PROGRAM BY 
D.F.ROUND 12/2/82" 

97 PRINTCHRS (27);"J";"ORIGINAL PROGRAM BY 
D.F.ROUND 12/2/82":PRINT:PRINT 

98 PRINTCHRS (27);"J3";"ORIC-1 CONVERSION BY 
M.J.BUNCE 5/1/84" 

99 PRINTCHRS (27); "J"; "ORIC-1 CONVERSION BY 
M.J.BUNCE 5/1/84" 

108 DIMD(6,4,2) ,R@(3,8),R1(3,8) ,A(3,3) ,VE( 
3) ,VN(3) ,EY (3) ,VA(3) ,VB(3) 


"sPRINT: PRINT: PRINT: PRINT 
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182 
194 
165 
186 
119 
129 
139 
131 


WAIT10G@ 


FORV=1TO8 

READR@(1,V) ,RO(2,V) ,RB(3,V) 

NEXTV 
DATA-25,-25,25,25,-25,25,25,-25,-25,-2 


5,-25,-25 


132 


5,-25 


149 
159 
168 
170 
171 
172 
173 
174 
175 
176 
178 
1808 
3) 
198 
208 
219 
220 
236 
249 
2508 
268 
279 


DATA-25,25,25,25,25,25,25,25,-25,-25,2 


FORF=1T06 
FORE=1T04 
READD(F,E,1) ,D(F,E,2) 
NEXTE:NEXTF 
DATA1,2,2,3 


NT: PRINT 
PROX. 150-200)"; EY ( 


CLS: PRINT: 
INPUT" EYE 


3 
4 
8 
7 
6 
8 
I 
S 


non 
4,4, 
8,8, 
7,7, 
6,6, 
8,8, 
PRIN 
POSs' 
EY (1) =@ 

EY (2) =@ 
INPUT"D.C'S.OF AXIS";U1,U2,U3 
INPUT" TOTAL,STEP. ROT'N.";TM,TT 
T=G 

MO=SQR (UL*U1+U2*U2+U3*U3) 
U1=U1/MO 

U2=U2/MO 

U3=U3/MO 


SI=SIN(T/57.296) 
CO=COS (T/57.296) 
A(1,1)=U1*U1+CO* (1-U1*U1) 
A(1,2) =U1*U2* (1-CO) -U3*SI 
A(1,3) =U3*U1* (1-CO)+U2*SI 


A(2,1) =U1*U2* (1-CO) +U3*SI 
A(2,2) =U2*U2+CO* (1-U2*U2) 
A(2,3) =U2*U3* (1-CO)-U1*SI 
A(3,1)=U3*U1* (1-CO) -U2*SI 
A(3,2) =U2*U3* (1-CO)+U1*SI 
A(3,3) =U3*U3+CO* (1-U3*U3) 
FORV=1TO8 

FORI=1T03 

R1(1I,V)=9 

FORJ=1T03 
R1(1,V)=R1(1,V)+A(I 
NEXTJ :NEXTI:NEXTV 


J) *RO(J,V) 


CLS:HIRES 
FORF=1T06 
FORJ=1T03 
VA(J)=R1(J,D(F,1,2) 
VB(J)=R1(J,D(F,2,1) 
NEXTJ 

VN(1)=VA 
VN (2) Si 


(2) *VB ( 

( 
VN (3) =VA ( 

3 

( 


2 a1<¥ 
3) *VB(1)-V 
1) *VB(2)-V 
FORU= ins 
VE (U) = 
NEXT U 
DP=é 
FORU=1TO3 
DP=DP+VN (U) *VE (U) 
NEXTU 
IFDP<@THEN69@ 


U)-R1L(U,D(F,1,2) ) 


FORE=1TO4 

V1=D(F,E,1) 

PE=ABS (EY (3) /(R1(3,V1)-EY (3) )) 
X=INT (PE*R1(1,V1) +120) 

Y=INT (PE*R1(2,V1) +100) 
IFX<OTHENX=8 
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IFX>239THENX=239 
IFY>199THENY=199 

IFY<QTHENY=9@ 

CURSETX,Y,3 

V2=D(F,E,2) 

PE=ABS (EY (3) /(R1(3,V2)-EY(3))) 
N=INT (PE*R1(1,V2) +120) 

M=INT (PE*R1(2,V2) +100) 
B=N-X:C=M-Y 


676 
680 
698 
709 
710 
720 


DRAWB,C,1 

NEXTE 

NEXTF 

T=T+TT 

IFT<=TMTHEN299 

PRINT"ROTATION COMPLETE - PRESS ANY KE 


Y ":GETAS 


73 
748 


TEXT 
END 


SPELLBUZZ 


Id REM"SPELLBUZZ" 


15 
20 
30 


TS="SPELLBUZZ" 
FORA=47956T047087: READB: POKEA,B:NEXT 
DATAG,24,9,8,24,12,7,09,89,6,0,0,6,12,56, 


DATAG,24,0,80,7,12,24,09,0,6,9,9,56,12,6, 


YS="2{":NS="|}" 
DIMAS (100,3) 
FORA=1T010@: FORB=1T03: READAS (A,B] :NEXTB 


REM DICTIONARY 
DATA"PIECE","PEICE","PEECE" 

DATA" SATURDAY", "SATERDAY","SATTERDAY" 
DATA" TUESDAY","TEUSDAY","TOOSDAY" 
DATA"BANANA" ,"BANNANA" ,""BANANNA" 
DATA" THREE" ,"THEREE","THREA" 

DATA" YELLOW", "YELOW", "YELLOU" 

DATA" ALPHABET" ,"ALFABET","ALFABIT" 
DATA"FRIDAY","FRYDAY","FRIDEY" 
DATA"COMPUTER" ,""COMPUTOR" ,"COMPUTAR" 
DATA"OLIVER","OLIVAR","OLLIVER" 

DATA" TELEVISION", "TELIVISUN","TELYVISH 


DATA" FOUR", "FOOR","FUOR" 

DATA" SUSANNAH","SUSANAH", "SUSANNA" 
DATA" SUPER","SOOPER","SOUPA" 

DATA" THEIR" ,"THIER","THEER" 


116 
117 
118 
119 
120 
121 
122 
123 


DATA" EACH","EECH","EATCH" 
DATA"HEAVY","HEVVY","EAVVY" 

DATA" LEAST" ,"LEEST" ,"LAEST" 
DATA"AGAIN","AGEN","AGIN" 
DATA"CUDDLE","CUDDEL"<"CUDEL" 

DATA" THANKS", "FANKS"," THANGKS" 
DATA"CONNECT","CONECT","CONNEKT" 

DATA" INTRODUCTION", "INTREDUCTION","INT 


ERODUCTION" 


124 
125 
126 
127 
128 
129 
139 
£31 
L32 
133 
134 


135 
136 
137 
138 
139 
149 


DATA"AVERAGE", "AVARAGE", "AVIRAGE" 
DATA"FIRST","FERST","FIRSST" 
DATA"GIRL® , "GERL” , "GURL" 

DATA" TABLE" ,"TABEL","TABIL" 
DATA"LOOP","LOUP", "LUPE" 
DATA"MOUTH", "MOUF","MOWTH" 

DATA" PARALLEL", "PARALEL", "PARALELL" 
DATA" PERFORM", "PURFORM","PIRFORM" 
DATA" PURSUE", "PERSUE","PIRSUE" 

DATA" PERSUADE","PURSUADE", "PERSWADE" 
DATA"STATEMENT" ,"STATMENT", "STATEMEANT 


DATA"REQUIRE","REKWIRE","REQUIR" 
DATA" LETTER", "LETER","LETTAR" 

DATA" LETTUCE" ,“LETTICE", "LETTIS" 
DATA" TELEPHONE", "TELEFONE","TELIFONE" 
DATA" ENEMY","ENIMY","ENEMIE" 
DATA™MOUSE","MOWSE","MOWESE" 

DATA" TRIANGLE","TRYANGLE","TRIANGEL" 
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DATA"COMPLETE" ,"COMPLEET","COMPLEATE" 
DATA"COMMA","COMMAR" ,"COMMARE" 

DATA" THINK", "FINK", "THYNK" 
DATA"MUSIC","MUSIK","MUESIK" 
DATA"WHICH","WICH","WHICHE" 

DATA" TOGETHER", "TOGEVVER" ,"TWOGEVVER" 
DATA" THEME" ,"THEEM","FEEM" 
DATA"REVEAL","REVEEL","RE-VEAL" 
DATA"WONDERFUL", "WUNDERFUL", "WONDERFUL 


DATA"BEGINNING","BEGINING","BEEGINNING 


DATA"BEAUTY","BAEUTY","BEUATY" 

DATA" ECHO" ,"ECHOE","ECKOE" 
DATA"CHOIR","KWIRE","KWOIR" 

DATA" TRUMPET" ,"TRUMPETTE","TRUMPETT" 
DATA"HEAT","HEET","HEATE" 
DATA"PROMISE","PROMISS","PROMIS" 
DATA"WORLD","WIRLD","WORLED" 
DATA"MINUTE","MINETTE","MINIT" 
DATA"WHEEL","“WEELL","WEILL" 
DATA"HEIGHT", "HITE","HYTE" 

DATA" FAITHFUL" ,"FAYTHFULL","FAITHFULL" 
DATA" THOUGHT" ,"THOUHT","THORT" 
DATA"DESCEND","DEESEND","DESEND" 
DATA"NECESSARY","NECCESARY","NECCESSAR 


DATA"MOUNTAIN","MOWNTAIN","MOWNTEN" 
DATA"DIFFERENCE","DIFERENCE","DIFFERRE 


DATA"VALLEY","VALLY","VALEY" 
DATA"HEART","HAERT","HARTE" 

DATA" EIGHT","AITE","EAGHT" 
DATA"SEVEN","SEVVEN","SEVIN" 
DATA"WEDNESDAY","WENSDAY","WENESDAY" 
DATA" JANUARY", ""JANWARY","JANURY" 
DATA"FEBRUARY","FEBWARY","FEBUARY" 
DATA" AUGUST", "AWGUST","ORGUST" 
DATA"SEPTEMBER","SETEMBER" ,"SEPTEMBAR" 
DATA"DECEMBER","DESEMBER","DICEMBER" 
DATA"MALICE","MALISS","MALIS" 


DATA"LAUGH","LAFF","LARE" 
DATA"DOCTOR","DOCTER","DOCTAR" 
DATA"REASON","REESON","RIESON" 
DATA"CREATURE" ,"KWEETURE","CREETURE" 
DATA"BECAUSE","BECOS","BEECAUSE" 
DATA"GREATEST","GRATEST","GREATIST" 
DATA"WHISPER","WISPER","WISSPER" 

DATA" TROUBLE" ," TRUBBLE","TROUBEL" 
DATA" INFERENCE" ," INFERRENCE"," INFERANC 


DATA"PEOPLE","PEEPEL","PEEPIL" 

DATA" TURNED", "TIRNED","TURND" 
DATA"SPECIAL","SPESHILL","SPESHALL" 
DATA"VOICE","VOYCE","VOISE" 
DATA"BUILDING","BILLDING","BILDING" 
DATA"MOTHER" , "MUVVER", "MOTHAR" 
DATA"GEM" ,"GEMM", "JEM" 

DATA" JEWELLERY", "JEWELRY", "JEWELREY" 
DATA"CRYSTAL", "CRISTAL","CRYSTEL" 
DATA"DIFFICULTY","DIFICULTY","DIFFIKUL 


DATA"SWORD","SORD","SWORED" 
DATA" ISSUE","ISYOU","ISUE" 
DATA"ACCOMMODATION" ,"ACOMODATION", "ACC 


OMODATION" 


256 
268 
276 
288 
298 
295 
388 
319 


POKE524,255 

DOKE 48002 ,3999 

FORA=1TO9 
POKE48014+A,ASC (MIDS (TS,A,1)) 
NEXT 

DOKE48924,2075 

CLS 


PRINTSPC (200) SPC (230) CHRS (4) CHRS$ (27) "N 


"TSCHRS (4) 


326 


PRINT: PRINT: PRINTSPC (18) CHRS (96)" ROB 


SIBTHORPE" 


336 


PRINT: PRINT: PRINTSPC(7)"Press any key 


to start" 


348 
345 
359 


POKE#26A,2 
PING 
AS=KEYS 


eg IauMO 2UO 


368 
378 
4800 
465 
419 
415 
420 
439 
449 
45@ 
580 


IFAS=""THEND=RND (1) :D=FRE("") :GOTO35@ 
POKE#26A, 3 

FORN=1TO1@ 

CLS 

D=INT (RND (1) *100)+1:GOSUB120@ 
IFFTHENF=@:GOTO41@ 

A=INT (RND (1) *3)+41 

B=INT(RND(1)*3) +41 

IFB=ATHEN439@ 

C=6- (A+B) 

PRINT: PRINT:PRINT"Which spelling is co 


rrect?" 


625 


PRINT: PRINT: PRINT,AS(D,A) 
PRINT: PRINT,AS(D,B) 
PRINT: PRINT,AS (D,C) 


PRINT: PRINTSPC(1) 
PLOT3, 24 v we 


PLOT3,25,"Type answer - then press RET 
INPUTBS 


WAIT190:PRINT 
PRINTSPC (2) CHRS (4) CHRS (27) "J"; 
FORE=LTOLEN (AS (D,1)) 
PRINTMIDS (AS (D,1) ,E,1); 

PING: WAIT100 

NEXT > 
PRINT" "; 

IFBS=AS (D,1) THENPRINTYS: Y=Y+1 
IFBS<>AS (D,1) THENPRINTNS 
PRINTCHRS (4) 

PRINT: PRINT: PRINT: PRINT,,,"You have be 


en OOLLEGt"2s PRINT; 5,,¥" out of "w 


628 
630 
700 
765 


WAIT20@ 
NEXT 

CLS 
POKE#26A,2 


71 


720 
880 
730 
UB9IOG 
740 
OSUB1 
75@ 
755 
758 
766 
88 
T1IO:N 
810 
815 
828 
830 
849 
90d 
919 
915 
920 
930 
949 
950 
960 
970 
100@ 


PRINTSPC (269) SPC (158) CHRS (4) CHRS (27) "N 
IFY=1OTHENPRINTYS" Brilliant "YS$:GOSUB 
IFY<19ANDY>6THENPRINT"Fairly good":GOSs 


IFY<7ANDY>3THENPRINTNS" Oh Dear! "NS:G 
OOO 

IFY<4THENPRINTNS,NS,NS:GOSUB11990 
PRINTCHRS (4) 

Y=0:N=0 

WAIT 200: GOTO38@ 

FORX=5908TO1OOSTEP-100:SOUND1,X,12:WAI 

EXT: EXPLODE: RETURN 

S=SIN(X) *10@ 

IFS<@THENS=-S 

SOUND1,S,9 

WAITS 

NEXT 

FORX=1TO5@ 

S=SIN(X) *10@ 

IFS<@THENS=-S 

SOUND1,S,9 

WAITS 

NEXT 

FORX=18T0O15:SOUND1,S,X:WAITS5:NEXT 
FORX=14TO@STEP-1:SOUND1,S,X:WAIT5:NEXT 
RETURN 
FORX=5@TO1LSTEP-1:SOUND1,X*100,9:WAITS 


>NEXT:WAIT5@:SOUND1,@,@:RETURN 


11980 
1119 


FORX=1TO19 
SOUND1,5800,12:WAIT20:SOUND1,9,0:WAIT 


10:NEXT: RETURN 


1129 
1260 
1218 
122 
1239 
1240 


RETURN 

D(N) =D 
FORX=N-1TO1STEP-1 

IFD (N) =D (X) THENF=-1:X=1 
NEXT 

RETURN 


IBUMQ DUD Pe 


ANALYSIS 


18 REM"ANALYSIS" 

28 GRAB 

3@ CLS 

40 PRINT: POKE#26A,2 

5@ PRINTSPC (255) SPC(133)CHRS (4) CHRS (27) "N 
ANALYSIS": PRINTCHRS (4) 

6@ PLOT7,15,CHRS (96)+" ROB SIBTHORPE 1983" 

7® PLOT2,24,"Press any key to start progra 
mme" 

88 GET AS 

90 POKE#26A,3 

188 CLS 

195 PRINT:PRINT"WHAT IS THE TITLE OF THIS 
ANALYSIS?" 

118 INPUTTAS 

115 IFLEN (TAS) > L6THENTAS=LEFTS (TAS,12)+".. 


Ul 
128 PRINT: PRINT: PRINT,CHRS (4) CHRS(27)"J"TA 
S:PRINTCHRS (4) 
138 INPUT"HOW MANY ENTRIES WILL THERE BE"; 
TE 
135 DIMZS (TE) 
148 PRINT:PRINT"Please type column heading 
s required. Make COST the last one" 
145 PRINT: PRINT"MAXIMUM 18 HEADINGS" 
158 REPEAT 
155 INPUTAS 
169 GOSUB28800 
165 PRINT"OK" 
178 UNTILAS="COST" 
WAIT5@ 
CLS 
PLOT6,10,"NOW FOR THE ENTRIES" 
PLOT6,12,"Press any key to start" 
GETAS 
CLS 
FORA=1TOTE 


26@ PRINT:PRINT"ENTRY "A 

276 PRINTBS;TAB(25-LEN(BS)); 

288 INPUTBS (A) 

290 IFCS=""THEN56@ 

390 PRINTCS;TAB(25-LEN(CS)); 

31@ INPUTCS (A) 

320 IFDS=""THEN569 

338 PRINTDS;TAB(25-LEN(DS)); 

34@ INPUTDS (A) 

350 IFES=""TyRPN560 
PRINTES;TAB(25-LEN(ES) ); 
INPUTES (A) 
IFFS=""THEN56@ 

PRINTFS; TAB(25-LEN (FS) )} 
INPUTES (A) 
IFGS=""THEN56@ 
PRINTGS;TAB(25-LEN(GS) ); 
INPUTGS (A) 
IFHS=""THEN56@ 
PRINTHS;TAB(25-LEN(HS)); 
INPUTHS (A) 
IFIS=""THEN56@ : 
PRINTIS;TAB(25-LEN(IS)); 
INPUTIS (A) 
IFJS=""THEN56@ 
PRINTJS;TAB(25-LEN(JS)); 
INPUTJS (A) 
IFKS=""THEN56@ 
PRINTKS; TAB(25-LEN (KS) ); 
INPUTKS (A) 
NEXT 
WAIT5@ 
1908 CLS 
1818 PRINTSPC (4@)CHRS (4) CHRS (27) "N" TAS: PRI 

NTCHRS (4) 

1920 PRINT:PRINT:PRINT"Which of the follow 

ing do you require?" 


gg IeuMO OUC 


1830 
16490 
1865¢ 
1669 
1870 
1886 
1890 
1180 
1129 
1139 
114@ 
115¢ 
1169 


780008, 


1170 
2006 
2019 


YOU WANT 


2020 


PRINT:PRINT"1 EXTRACT COSTS" 

PRINT"2 LIST PARTICULAR ENTRY" 
PRINT"3 LIST COLUMN VARIATIONS" 
PRINT"4 LIST LIKE ENTRIES" 

PRINT"5 LIST ALL ENTRIES" 

PRINT"6 LIST SPARE ITEMS" 

PRINT"7 CHANGE ENTRY" 

PRINT"8 STOP 

PRINT: PRINT"Press number" 

GETAS 

V=VAL (AS) 

CLS 
ONVGOSUB2008,3000,4000,5000,6900,70900 
18000 

GOTO1#O@ 

PRINT: PRINT: PRINT“ EXTRACT COSTS" 
PRINT: PRINT" INDICATE WHICH CATEGORIES 
UNDER EACH COLUMN" 

PRINT: PRINT",...or ALL if appropriate" 


: PRINT: PRINT 
2030 


2049 
2050 
2060 
2978 


IFBS="COST"THEN23909 
PRINTBS; TAB (25-LEN (BS) ) ; 
INPUTBXS 

IFCS="COST" THEN2309 
PRINTCS;TAB(25-LEN(CS)); 
INPUTCXS 
IFDS="COST"THEN2309 
PRINTDS;TAB(25-LEN(DS)); 
INPUTDXS 
IFES="COST"THEN2300 
PRINTES; TAB(25-LEN(ES) ); 
INPUTEXS 
IFFS="COST"THEN2300 
PRINTFS;TAB(25-LEN (FS) ); 
INPUTFXS 
IFGS="COST"THEN2300 
PRINTGS;TAB(25-LEN(GS) ); 
INPUTGXS 
IFHS="COST"THEN230@ 
PRINTHS;TAB(25-LEN (HS) ); 
INPUTHXS 


2246 
2256 
2269 
227G 
2280 


2298 


23069 
2310 
2320 
2330 
2340 
2358 


IFIS="COST" THEN239@0 
PRINTIS$;TAB(25-LEN(IS)); 
INPUTIXS 

IFJS="COST" THEN2300 
PRINTJS;TAB(25-LEN (JS) ); 
INPUTJIXS 

PRINT: PRINT,CHRS(27)"L HANG ON!" 
WAIT5@ 

C3=0:C4=0:C5=9 

FORA=l1TOTE 

C1=0:C2=0 
IFBS="COST"ANDC1=C2THENC3=VAL (BS (A)): 


C4=C44+C3:C5=C5+1:GOTO28 20 


2360 
2379 
2389 
2399 
2499 
2410 


IFBS (A) ="@"THEN2820 

Cl=C1+1 

IFBS (A) =BXSORBXS="ALL" THENC2=C2+1 
IFC1<>C2THEN2820 

IFCS=""THEN28 20 
IFCS="COST"ANDC1=C2THENC3=VAL (CS$(A)): 


C4=C4+C3:C5=C5+1:GOTO2829 


24268 
2439 
244G 
2450 
2460 


Cl=Cl1l+1 

IFCS (A) =CXSORCXS="ALL" THENC2=C2+1 
IFC1<>C2THEN282@ 

IFDS=""THEN28 2G 
IFDS="COST"ANDC1=C2THENC3=VAL (DS(A)): 


C4=C4+C3:C5=C5+1:GOTO28 2G 


2476 
2489 
2499 
2509 
2518 


C1=Cl+l 

IFDS (A) =DXSORDXS="ALL" THENC2=C2+1 
IFC1<>C2THEN2820 

IFES=""THEN2820 
IFES="COST"ANDC1=C2THENC3=VAL (ES$(A)): 


C4=C4+C3:C5=C5+1:GOTO2829 


2526 
2530 
2548 
2556 
2560 


C1=C1+1 

IFES (A) =EXSOREXS="ALL"THENC2=C2+1 
IFC1<>C2THEN282@ 

IFFS=""THEN28 28 
IFFS="COST"ANDC1=C2THENC3=VAL (FS (A)): 


C4=C4+C3:C5=C5+1:GOTO2829 
2578 C1l=C1+1 


2580 
2590 


IFFS (A) =FXSORFXS="ALL" THENC2=C2+1 
IFC1<>C2THEN28 20 


IOUMQ IUD 9f 


2600 IFGS=""THEN2829 2978 IFAS="Y"THEN2008 
2618 IFGS="COST"ANDC1+C2THENC3=VAL (GS$(A)): 2980 RETURN 
C4=C44C32C5=C54+1:G0T0 2829 3000 PRINT:PRINT:PRINT"PARTICULAR ENTRY" 
2620 C1=Cl+l 3018 PRINT:PRINT"Which one"; 
2630 IFGS(A) =GXSORGXS="ALL"THENC2=C2+1 3026 INPUTA 
2640 IFC1<>C2THEN2829 3030 IFA>TETHENPRINT"TOO HIGH - CHOOSE FRO 
2658 IFHS=""THEN282G6 M 1 TO "TE:GOTO302G 
2668 IFHS="COST"ANDC1=C2THENC3=VAL (HS (A)): 3048 GOSUB22900 
C4=C44+C3:C5=C5+1:G0TO2829 30958 PRINT:PRINT"Do you want another PARTI 
2678 C1l=Cl1+1 CULAR ENTRY?"; 
2680 IFHS (A) =HXSORHXS="ALL"THENC2=C2+1 3068 GETAS 
2698 IFC1<>C2THEN2820 3070 IFAS="Y"THEN3008 
2700 IFIS=""THEN2820 3088 RETURN 
2710 IFIS="COST"ANDC1=C2THENC3=VAL(IS$(A)): 4000 PRINT:PRINT:PRINT"COLUMN VARIATIONS" 
C4=C44+C3:C5=C54+1:G0TO2829 4005 FORA=1TOTE:Z$(A)="":NEXT 
2728 C1l=C1+1 4918 PRINT: INPUT"Which column"; ZS 
2738 IFIS(A)=IXSORIXS="ALL"THENC2=C2+1 4928 GOSUB239090 
2748 IFC1<>C2THEN2820 4030 PRINT: PRINTZS (1) 
2750 IFJS=""THEN2820 4049 FORA=2TOTE 
2760 IFJS="COST"ANDC1=C2THENC3=VAL (J$(A)): 4050 FL=9 
C4=C4+C3:C5=C54+1:G0TO2820 4968 FORN=A-1TO@OSTEP-1 
2770 Cl=Cl+l 4070 IFZS(N) =Z$ (A) THENFL=1:N=0 
2780 IFJS(A)=JXSORIXS="ALL"THENC2=C2+1 4980 NEXTN 
2790 IFC1<>C2THEN282@ 49909 IFFL=Q0THENPRINTZS (A) 
2810 C3=VAL (KS (A)) :C4=C4+C3:C5=C5+1 4100 NEXTA 
2820 NEXT 4110 PRINT:PRINT"Do you want more COLUMN V 
2838 CLS ARIATIONS?"; 


2840 PRINT: PRINTBS; TAB(25-LEN (BS) ) ;BX$ 4120 GETAS Ri 
285@ PRINTCS;TAB(25-LEN(CS$) ) ;CXS 4130 IFAS="Y"THEN4000 


2868 PRINTDS;TAB(25-LEN(DS$) ) ;DX$ 4148 RETURN 
2870 PRINTES;TAB(25-LEN(ES) ) ; EXS 5000 PRINT:PRINT:PRINT"LIKE ENTRIES" 


2880 PRINTFS;TAB(25-LEN(FS) );FXS 5010 PRINT: INPUT"Which column"; ZS$ 

2898 PRINTGS;TAB(25-LEN (GS) ) ;GX$ 5020 PRINT: INPUT"Which variation"; 2ZXS$ 

2900 PRINTHS;TAB(25-LEN (HS) ) ;HX$ 5839 GOSUB23000 

2910 PRINTIS$;TAB(25-LEN(IS$));1XS$ 5049 FORA=1TOTE 

2920 PRINTJS;TAB(25-LEN(J$) );JXS$ 5858 IFZS (A) =ZXSTHENGOSUB220090 

2930 PRINTKS; TAB(25—-LEN (KS) ) ; KXS 5055 WAIT20@ 

2948 PRINT:PRINT" "C4" FOR "C5" ITEMS" 5068 NEXT 

2958 PRINT:PRINT"Any more EXTRACT COSTS re 5870 PRINT:PRINT"Do you want other LIKE EN 
quired?"; TRIES?"; 

2968 GETAS 5@8@ GETAS 


Le IeuMO IUD 


IFAS="Y"THEN50008 
RETURN 
PRINT: PRINT: PRINT"LIST ALL ENTRIES":P 


FORA=l1TOTE 

GOSUB2200@0 

WAIT2@0@ 

NEXT 

PRINT: PRINT"...again?" 

GETAS 

IFAS="Y"THEN6000 

RETURN 

PRINT: PRINT: PRINT"SPARE ITEMS" 
FORA=l1TOTE 

IFBS (A) ="@"THENPRINTA, 

NEXT 

PLOT2,20,"Press any key to clear scre 


GETAS 

RETURN 

PRINT: PRINT: PRINT"CHANGE ENTRY" 
PRINT: INPUT"Which one";A 
PRINT: PRINTBS; TAB (25-LEN (BS) ) ; BS (A) 
GOSUB2499@ 

BS (A) =ZS (A) 

IFCS=""THEN843@ 
PRINTCS; TAB (25-LEN (CS) ) CS (A) 
GOSUB24980@ 

C$ (A) =ZS (A) 

IFDS=""THEN8439 
PRINTDS; TAB (25-LEN (DS) ) ;D$(A) 
GOSUB24900 

DS$ (A) =ZS (A) 

IFES=""THEN843@ 
PRINTES; TAB (25-LEN (ES) ) ; ES (A) 
GOSUB2498@ 

ES (A) =ZS (A) 

IFFS=""THEN843@ 

PRINTFS; TAB(25—-LEN (FS) ) ; FS (A) 
GOSUB24909 

FS (A) =ZS (A) 


82390 
8249 
8250 
8260 
8270 
8289 
8298 
8308 
8319 
832d 
8330 
8340 
8350 
8369 
83708 
8389 
8390 
8400 
8419 
8420 
8430 
8449 
8459 
eu 
8460 
8479 
ther E 
8480 
8499 
8588 
18009@ 
19010 
SIS 3: 
18029 
19030 
10049 
19850 
18069 
18879 
20000 
200190 


IFGS=""THEN843@ 
PRINTGS; TAB (25-LEN (GS) ) ;GS (A) 
GOSUB24@09 

GS$ (A) =ZS$ (A) 

IFHS=""THEN843@ 
PRINTHS; TAB (25-LEN (HS) ) ;HS (A) 
GOSUB24@9@ 

HS (A) =Z$ (A) 

IFIS=""THEN843@ 
PRINTIS$; TAB (25-LEN (I$) ) ;1$ (A) 
GOSUB2400@ 

I$ (A) =ZS (A) 

IFJS=""THEN843@ 
PRINTJS;TAB(25-LEN(J$));J$ (A) 
GOSUB24009 

J$ (A) =ZS$ (A) 

IFKS=""THEN843@ 
PRINTKS; TAB (25-LEN (KS) ) ; K$ (A) 
GOSUB2490@ 

K$ (A) =ZS (A) 

WAIT5@ 

CLS 

PRINT: PRINT: PRINT"ENTRY "A" NOW READS 


GOSUB22089 
PRINT:PRINT"Do you want to CHANGE ano 
NTRY?": 
GETAS 
IFAS="Y"THEN800@0 
RETURN 
PRINTCHRS (17) 
PRINTSPC (154) CHRS (4) CHR$S (27) "N ANALY 
"TAS 
PRINTCHRS (4) 
PLOT5,15,"To continue, type CONT" 
PLOT5,17," and press RETURN" 
STOP 
PRINTCHRS (17) 
RETURN 
FL=FL+1 
IFFL=1THENBS=AS:DIMBS (TE) 


IOUMQ OUD ge 


IFFL=2THENCS=AS 
IFFL=3THENDS=AS 
IFFL=4THENES=AS 
IFFL=5THENFS=AS: 
IFFL=6THENGS=AS$ 
IFFL=7THENHS=AS$ 


: DIMCS (TE) 
:DIMDS (TE) 
: DIMES (TE) 


DIMFS (TE) 


: DIMGS (TE) 
:DIMHS (TE 


IFZS=JSTHENZS (A) =J$ (A) :GOTO231198 
IFZS=KSTHENZS (A) =KS (A) :GOT0O23119 
NEXT 

RETURN 

PRINT"...now to read "; 

INPUTZS (A) 


) 
IFFL=8THENIS=AS:DIMIS (TE) PRINT"OK 
IFFL=9THENJS=AS:DIMJS (TE) RETURN 
IFFL=10THENKS=AS:DIMKS (TE) 
RETURN 
PRINT"ENTRY "A:PRINT 
PRINTBS; TAB (25-LEN (BS) ) ; BS (A) 
IFCS=""THEN2219@ 
PRINTCS; TAB (25-LEN (CS) ) ;CS (A) 
IFDS=""THEN22199 
PRINTDS; TAB (25-LEN (DS) ) ;DS (A) 
IFES=""THEN22190 
PRINTES; TAB (25-LEN (ES) ) ; ES (A) 
IFFS=""THEN22199@ 
PRINTFS;TAB(25-LEN (EFS) ) ; FS (A) 
IFGS=""THEN22190 
PRINTGS; TAB (25-LEN (GS) ) GS (A) 
IFHS=""THEN22190 
PRINTHS; TAB (25-LEN (HS) ) ; HS (A) 
IFIS=""THEN2219@ 
PRINTIS;TAB(25-—LEN (I$) ); 1S (A) 
IFJS=""THEN2219@ 
PRINTJS;TAB(25-LEN(JS) ) ;JS (A) 
IFKS=""THEN22199 
PRINTKS; TAB(25-LEN (KS) ) ; KS (A) 
PRINT 
RETURN 
FORA=1TOTE 
IFZS=BSTHENZS (A 
IFZS=CSTHENZS (A 
IFZS=DSTHENZS (A 
IFZS=ESTHENZS (A) =ES (A) :GOTO23110 
IFZS=FSTHENZS (A) =FS (A) :GOTO23119 
IFZS=GSTHENZS (A) =GS (A) :GOTO23119 
( 
( 


(A) :GOTO23119 
(A) :GOTO023119 
(A) :GOTO23116 


) 
) 
) 


IFZS=HSTHENZS (A) =HS :GOTO23119 
IFZS=ISTHENZS (A) =I$ :GOTO23119 


——— Soft wire SCM. 
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SCUBA DIVE 


Durell Software 

£6.95 

Oric 16K & 48K 

I must admit it, ] have never 
been a fan of Durell’s ‘Harrier 
Attack’, I have always felt that 
they could do better. ‘Scuba 
Dive’ is a far more original 
and interesting game. You 
have to get your diver to jump 
off a boat and then swim 
around underwater trying to 
avoid sharks, octupi and other 
denizens of the deep. Your 
task is to pick up pearls from 
oysters and collect minerals 
and gold from undersea 
caverns. Of course, you have 
a time limit controlled by the 
amount of oxygen in your 
tanks, 

Graphically, the game is 
good although not quite as 
good as the version I saw on 
the Spectrum and lots of fun. 


aa SOFTWARE & 


ROMIK 


Loch NES MONSTER? 


LOCHNESS 
MONSTER 


Romik Software 

£6.99 

Oric 48K 

Romik Software are well 
established in the Sinclair 
area and have ventured into 
Oric Software with Lochness 
Monsters, To the strains of 
‘Loch Lomond’ you pilot your 
boat around Lochness trying 
to pick up fish. When you 
have collected 25 you are 
awarded a poison fish which 
can be used as bait for the 
monsters which appear from 
time to time. 

You also have harpoons 
which you can hurl at the 
monsters but these will only 
kill them if they hit the head. 

Although the movement of 
the graphics is rather jerky, 
the scrolling of the lake is 
quite impressive as you move 
your boat around the screen. 
Altogether a good entrance 
into the Oric fielded by an 
already well known company. 


GRUNEBERG 
LINKWORD 
COURSE 


Tansoft Limited 

£12.95 

Oric-1 & Atmos 48K 
Available for French, Italian, 
German and Spanish, these 


courses give a good basic 
introduction to these 
languages. You are supplied 
with an instruction manual, a 
program cassette and a 
spoken vocabulary cassette 
all in a video cassette sized 
box. The courses are based 
on a method created by 
Professor Michael Gruneberg 
of the University of Swansea. 
Basically, the method is based 
on word association. For 
instance, the Spanish word for 
‘Lobster’ is 'Humma’. You are 
told to imagine a lobster with 
a sense of humour, thus 
immediately giving you 
something to picture in your 
mind and an aid to later 
recall. The silliness of some of 
the phrases actually helps you 
to remember the words. 

You are taught around 400 
words and a good 
background in grammar. 
These courses are ideal for 
those who are going abroad 
for holidays or business and 
can give you a lot of 
confidence if you are just 
beginning to learn a 
language. 


Oric 48K 

Every so often a piece of 
software is produced which 
becomes a standard for a 
particular computer. Where 
the ORIC-1 is concerned the 
first game to fall into that 
category was, undoubtedly, 
Xenon |. The second, I 
believe, is The Ultra. 

The idea behind The Ultra 
cannot in any way be 
described as new, the basic 
principle being to vaporise as 
many aliens as possible 
before they do the same to 
you. The cassette sleeve 
describes The Ultra as a pure 
arcade game and this is 
certainly the case. 

There are 16 different screens 
of aliens, each having their 
own shape and flight 
formation. Part of the 
addictive quality of this game 


lies in trying to discover what 
the next screen of aliens look 
like. 

Screen one of Ultra 1 consists 
of three rows of green craft 
which move across the screen 
from night to left, snapping 
their jaws as they go. I was 
soon able to negotiate these 
without losing any of my five 
lives. Screen 2 turned out to 
be a bank of menacing blue 
space invaders. I soon 
discovered that shooting the 
craft from the left of the 
formation created a ‘safe’ area 
on the screen where I could 
position my spaceship without 
any danger of being bombed. 
A similar principle applies to 
many of the other screens: in 
fact the main skills of The 
Ultra lie in knowing where to 
position the spaceship at the 
beginning of each screen and 
in adoption the safest and 
most efficient method of 
tackling the opposition. I won't 
give the game away by telling 
you how to play each screen, 
except to say that Ultra 16 is 
very hard and the reward for 
completing it will have been 
well earned. 

Just in case ‘The Ultra’ sounds 
too easy, one of the game's 
features is to penalise 
indiscriminate use of the fire 
button by informing you that 
your laser has overheated. 
When this happens you just 
have to wait until it cools 
down before you can continue 
firing. 

I would rate ‘The Ultra’ as one 
of the best games of its type. 
If you are going to buy only a 
few games for your Oric, buy 
this one. 


BOZY BOA 


CDS Microsystems 

£5.95 

Oric 48K 

This game is a variation of the 
old Snakes game. Basically 
you have to control your Boa 
around the screen avoiding 
the side and eating beetles 
and snails and avoiding the 
flowers which glow over the 
screen. 
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Of course this listing is far 
from complete. 

If you know of any software 
that we are not listing, then 
please contact us at Oric 
Owner and we will add the 
new programs to our listing. 
We shall endeavour to be as 
comprehensive as possible, 
though there is no guarantee 


People have been heard to 
complain that there is not 
much software available for 
the Oric-1. This listing, 
incomplete as it is, should 
show that that statement is 
patently untrue. We have over 
160 programs on our files, 
and that’s more than enough 
for most owners. 


that all the software listed will 
be available at time of going 
to press, and there may well 
be additional items from some 
of the companies. 

A growing number of 
software houses are making 
their software Oric-1 and 
Atmos compatable by 
recording two versions of the 


programs on the cassettes. If 
you are an Atmos owner, 
check with the company or 
your dealer as to whether the 
software is suitable. 

You will also have to check 
whether the software is 
suitable for a 16K machine. 
Much of it is for the 48K 
version only. 


Program Type Price Distributors Program Type Price Distributors 
3D Invaders Arcade Game £6.95 Quark Data Composer Utility £6.50 Sector 7 
3D Maze/Breakout Game £7.50 JK Dallas Strategy £6.95 CCS 
Aceinthe Hole Adventure £5.95 Wild Electronics Database Business £19.95 Gemini 
Acheron'sRage Arcade £6.95 Softek Death Satellite Adventure £6.90 A&F Software 
Airline Strategy £6.95 CCS Defence Force Arcade £7,95 Tansoft 
Arcaine Quest Adventure £5;95 Wild Electronics Design Aid Utility £5.50 Kenema 
Assembler Utility £9.95 Superior Dinky Kong Arcade £6.95 Severn 
Assembler/Diss. Utility £6.95 Durell 2. 
Assembler/Editor Utility £7.95 QED 
Asteroids Arcade £5.95 Arctic 
Author Business £14.50 Tansoft 
Awari Board £5.50 Kenema 
Battleships Game £6.90 Aztec 
Beseiged Education £9.95 Sulis Dracula Adventure £6.90 Mr Micro 
Bozy Boa Game £5.95 CDS Draculas Revenge Arcade £6.95 Softek 
Elementary Maths Education £6.90 Aztec 
Evictor Arcade £7.95 Wizard 
Extension Mon. Utility £15.00 Kenema 
Fantasy Quest Adventure £6.50 UK 
Filestar Business £12.00 Kenema 
Fishy Business Adventure £9.95 Salamander 
Bridge Board £9.85 ICB Flight Simulation £4.50 Tansoft 
Candyfloss Game £7.50 JK Flight Simulator Simulation £6.95 Quark Data 
Cassette 50 Game £9.95 Cascade Forth Utility £15.00 Tansoft 
Centipede Arcade £6.95 SS Franklin's Tomb Adventure £9.95 Salamander 
Champions Strategy £6.95 Peaksoft Galactic Defend Arcade £4.95 Headfield 
Chess Board £9.99 Tansoft Galaxians Arcade £6.95 Softek 
Chicken Arcade £6.95 Durell Galaxy 5 Game £6.95 Durell 
Click Game £4.95 Headfield Games 01 Game £7.95 Salamander 
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Program Type Price Distributors Program Type Price Distributors 
Gamespack Game £7.00 Sector 7 Killer Caverns Adventure £5.95 Virgin 
Gauntlet Arcade £6.95 PSS Kindersoft Education £9.95 Softshop 
Grail Adventure £6.95 Severn Leopard Lord Adventure £5.95 Wild Electronics 

Light Cycle Arcade £6.95 PSS 
Lightning Ass. Utility £9.90 Mr Micro 
Lochness Monster Arcade £6.99 Romik 
Loki Game £6.45 Joe the Lion 
Lone Raider Arcade £6.95 Severn 
: Lords of Time Adventure £9.90 Level 9 
scien sano awe iveitoessh) Lost in Space Adventure £9.95 Salamander 
Harrier Attack Arcade £6.95 Durell ‘omar tiie Sores £7.95 Sorerior 
Hells Temple Adventure £12.00 Kenema Mastermynda Sere £4.95 Headfield 
i sia ai Maths 4 Education £5.90 IMS 
Hopper Arcade $6.98 PSs MinesofSaturn Adventure £5.95 Mikro-Gen 
Horror Atoll Adventure £5.95 Wild Electronics 
House ofDeath Adventure £9,99 Tansoft 
Hunchback Arcade £6.90 Ocean 
Ice Giant Arcade £6.95 Softek 
Invaders Arcade £7.50 IJK 
Invaders Arcade £6.95 PSS . >a 
Invaders Arcade £5.50 Arcadia Moonster Arcade £6.95 Quark Data 
Invaders Arcade £6.99 Prog. Factory Moria Adventure £6.95 Severn 
IslandofDeath Game £6.90 Ocean Mr Wimpy Game £6.90 Ocean 
Jerico 2 Adventure £6.95 Elephant Multigames 1 Game £6.90 Tansoft 
Multigames 2 Game £6.90 Tansoft 
Mushroom Mania Arcade £5.50 Arcadia 
Mutant Invaders Arcade £5.95 R&R 
Nowotnik Game £6.90 Tansoft 
Oric Golf Game £5.95 R&R 
Oric Trek Game £9.95 Salamander 
Jogger Arcade £6.95 Severn Oric-1 Blitz Game £4.95 Kompsoft 
Johnny Reb Strategy £6.95 Lothlorien Oric-1 Composer Utility £4.95 Kompsoft 
Jungle Trouble Game £6.95 Durell Oric-1 Forth Utility £6.95 Kompsoft 
Just a Mot Education £9.95 Sulis Oric-Cad Utility £9.99 Tansoft 
Key Trainer Business £5.50 Kenema Oric-Calc Business £14.50 Tansoft 
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Program Type Price Distributors 
Oric-Mon Utility £15.00 Tansoft 
Oricade Utility £8.50 Severn 
Oricbase Business £14.50 Tansoft 
Oricle Game £6.95 Quark Data 
Oricmon Utility £8.95 PSS 
Oncmunch Arcade £7.95 Tansoft 
Oncstar Business £12.00 Durell 
Orion Ass./Diss. — Utility £12.95 Lothlorien 
Paragram Game £6.00 Elephant 
Pasta Blasta Arcade £5.50 Arcadia 
Personal Finance Business £9.99 Juniper 
QED Toolkit Utility £5.95 QED 
Quizmaster 1/2 Educational £5.59 R&R 
Rat Splat Arcade £7.95 Tansoft 
Records Business £10.00 Peach 


Reverse Board £6.50 JK 

Reversi Board £5.95 CDS 

Ringof Darkness Adventure £9.95 Wintersoft 

Ringo Game £6.50 Elephant 

Road Frog Arcade £6.90 Ocean 
Roundesy Adventure £5.95 Wild Electronics 
Runelord Adventure £7.50 Modular Concept 
Scuba Dive Game £6.95 Durell 

Snowball Adventure £9.95 Level 9 

Space Crystal Adventure £6.95 Quark Data 
Space Docker Game £4.95 Kompsoft 

Space Shuttle Game £8.00 Microdeal 
Spread Sheet Business £19.95 Gemini 

Squirm Arcade £6.90 Aztec 
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Program Type Price Distributors 
Star Bingo Game £5.95 R&R 
Starfighter Arcade £6.95 Durell 
Starship Arcade £6.50 Sector 7 
Super Breakout Arcade £4.50 Tansoft 
Super Fruit Game £6.95 Quark Data 
Super Meteors Arcade £6.95 Softek 
Super Trek Game £6.95 Mogul 
T-Comp Utility £12.95 Bamby 
Terminator Arcade £6.50 Impact 
Terror...Deep Adventure £5.95 Wild Electronics 
Tevrog’s Kingdom Adventure £9.99 Cable 
The Hobbit Adventure £14.95 Tansoft M. House 
The Ultra Arcade £6.95 PSS 
Toady Arcade £4.95 teadfield 
Toolkit Utility £9,95 Superior 
Toolkit Utility £8.95 MS 
Treasure House Game £6.99 Prog. Factory 
Two Gun Turtle Arcade £6.95 Lothlorien 
Ultima Zone Arcade £8.50 Tansoft 
Vanquisher Game £6.50 Elephant 
Variety Pack25 Game £5.95 QED 
Video Challenge Game £6.95 QED 
Warlord Strategy £6.95 Lothlorien 
Waydor Adventure £7.50 IMS 
Word Processor Business E1225 Juniper 
Wordpower Education £9.95 Sulis 
World Geography Educational £7.95 Superior 
Xenon-1 Arcade £8.50 IK 
Zodiac Adventure £9.99 Tansoft 
Zodiac Adventure £6.90 A&F Software 
Zorgons Revenge Arcade £8.50 YK 
Backgammon Game £795 Dormere 
OricalInvaders Arcade £5.95 Dormere 
Oricaid Utility £11.95 Micrograf 
MARC. Arcade £6.95 PSS 


———" 


SPRECHEN SIE 


DEUTSCH? 


No, but this English/German quiz from David White of 
Malvern, Worcestershire, may help you. 


The letters a,o,u and b are poked at the beginning to 
give the German letters with umlaut accents. Use these 
letters in your answers. 


Oric will print phrases and you'll have to supply the 
translation. The dictionary can easily be expanded with 
the help of a German phrase book. Remember to 
increase N in line 10 if you extend the dictionary. 


S REM xx NUMBER OF WORD PAIRS xx 
N=12 
REM xk POKE a;0,u,;b XxX 
FORI=1T04:READA :GOSUIB26@ :NEXT I 
DATA46856, 34, 28, 34, 34, 62; 34; 34,0 
DATA46968, 34, 28, 34, 34, 34, 34,2858 
DATA47816, 34, 8, 34, 34, 34, 34, 38,8 
DATA46864, 28, 26, 18,22, 18,17, 30; 32 
DIME$CN) :-DIND$CN) 
FORI=1TON:READE$CI) -READD$CIJ :NEXTI 
REM **k RANDOM SELECTION xx 
K=INTCRNDC13XN+1) 
J=INTCRNDC1)+.5) 
IF J=@THEN230 
REM XxX PRINTING ENGLISH Xx 
PRINTE$CK) = INPUTA$ 
IFAS=D$CKIJTHENPRINT"OAS IST RICHTIG 
"+D$CKI 


Q"ELSEPRINT"NEINY 
228 GOTO178 

225 REM *xkX PRINTING GERMAN Xx 

238 PRINTD$CKIJ : INPUTA$ 

240 IFAS=E$C(KIJ THENPRINT" CORRECT? "ELSEPR 


INT"'NO? "+E$CKI 

258 GOTO170 

255 REM *k CHARACTER POKE ROUTINE xXx 
26@ FORJ=ATOA+? :READD :POKEJ,D?NEXTJ ?RET 
URN 

380 DATA THE HOLISE,DAS HAUS, THE DOG,;DER 
HUND,; 1 SEE; ICH SEHE,HELLO,GUTEN TAG 
31@ DATA GOODBYE,AUF WIEDERSEHEN, TO SLE 
EP,SCHLAFEN;0OH,ACH SO 

328 DATA MERRY CHRISTMAS,FROLICHE WEINA 
CHTEN; 1 DON’T KNOW, ICH WEISS NICHT 

338 DATA QUER NINETY,UBER NEUNZIG;UGLY, 
HAESSLICH, ANGRY, BOESE 


Onc QUES. 


SOUND DEMO 


Here’s a short program from David Peat that 
demonstrates the sound capabilities of the Oric. Pressing 
S stops the noise. Is it music, we ask? 


19 CLS: PAPER4: INK7: PRINTCHRS (6) 
20 REPEAT 
3@ :SOUND 
)+18,@ 

40 :PLAY7,7,INT(RND(1)*7)+1,INT(RND(1) *506 
)+5@:WAITRND (1) *109 

5@ UNTILFALSEORKEYS="S":PLAY®,9,0,98 

68 END 


INT (RND(1)*4)+1,INT(RND(1)*7098 


REMEMBER THE 
NUMBER 


Some of us are better at remembering numbers than 
others. This Quickie from Mr Wood of Cheadle, 
Cheshire, tests that: out. 

It displays a seven digit number for a brief time and 
then prompts you to enter what you thought the number 
was. Changing the WAIT time in line 100 will change the 
display time. 


CLS 
PRINT 
PRINT"REMEMBER THE NUMBER" 
WAIT10@ 
CLS 
TARG=INT (RND (1) *9999999)+1 
IFTARG<1000000THEN69 
PRINT: PRINT: PRINT: PRINT 
PRINTTARG 
WAIT15@ 
CLS 
PRINT: PRINT: PRINT: PRINT 
PRINT"WHAT IS THE NUMBER?" 
PRINT 
INPUTTRY 
PRINT 
IFTRY=TARGTHENPRINT"CORRECT" 
IFTRY<>TARGTHENPRINT"WRONG" 
PRINT 
PRINT"ANOTHER TRY 
INPUTANS 
PRINT 
IFANS="Y"THEN3G 
IFANS="N"THENEND 


(Y/N) ?" 
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PPA ANS 


While your Oric may not be a Buddy Rich or Ringo Starr, 


this short program from J. A. McNamara of Wigan will 
demonstrate the drum machine potential of the Oric. Put 
the sound through an amplifier and you'll be surprised at 
how good it is. 


®@ REM***DRUMS BY J.A.MCNAMARA*** 


10 PRINTCHRS (6) 
28 GOTO1L59 


MUSIC1,1,1,%8:PLAY1,%9,1,89 
WAITRND (1) *100+5@ 

RETURN 
MUSIC2,2,2,8:PLAY9@,2,1,209 
WAITRND (1) *20 

RETURN 


MUSIC3,6,6,8:PLAY4,0,1,6@ 
WAITRND (1) *28:GOSUB6G 
RETURN 
MUSIC1,3,3,0:PLAY1,8,1,8@ 


WAITRND (1 
RETURN 
A=RND (1) *4+1.5 

ON AGOSUB 39,68,808,129 
GOTO15@ 


) *58:GOSUB6G8 
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ELLIPSES 


An ellipse is a regular oval. This Quickie from twelve 
year old Martin Williams of Newmarket will draw out five 
random ellipses on the HIRES screen. 

To give more ellipses, change the 5 in line 15. To 
make the ellipses smoother, use numbers higher than 
200 in line 30. Remember that the more steps there are, 
the longer the program will take to execute. 


1 REM COPYRIGHT M.WILLIAMS 
HIRES 
FORP=1T05 
A=INT (RND (1) *5@) : B=INT (RND ( 


1)*58) 
FORT=1TO20@ 
CURSET128+COS (T 
NEXTT 

NEXTP 


SONG FOR 


)*B,100+SIN(T)*A,1 


REM *** SONG FOR CHILDREN *** 
FORN=1T059 

READK,T,W 

W=W*i.4 

MUSIC1,K,T,9@ 

PLAY1,%,1,50098 

WAITW 

NEXTN 

RESTORE: WAIT3@@: GOTO29 

168 DATA 2,10,12,3,3,37,3,2,12,3,3 
737,3,5,12 

118 DATA 3,6,37,3,5,12,373,3773,2, 
12,3,3,59 

120 DATA 3,3,508,3,3,87 

139 DATA 2,10,12,373737,3,72,12,7343 
73773,5,12 

140 DATA 3,6,37,3,5,12,3,3,37,3,2, 
12,3,3,59 

15@ DATA 3,3,508,3,3,87 

168 DATA 3,6,12,3,5,37,3,4,12,3,5, 
37,3,6,12 

170 DATA 3,8,59,3,5,37,3,5,12,3,6, 
37,3,5,12 

180 DATA 3,6,37,3,180,12,4,3,58,3,1 
8,37,3,10,12 

199 DATA 3,11,37,3,10,12,3, 
6,12,3,5,37 

208 DATA 3,3,12,372737737¢1273,3,1 
58,3,3,58 

218 DATA 3,3,87 


BS, stele 


Martin Hagstrem 


01 QUE: 


UNION JACK 


The Oric-1 is made in Britain. here’s a short program 
from K. J. Diver that results in a full colour display of the 
Union Jack, using the graphics mode. 

The programs works by the simple expedient of 
CURSET and FILL commands. It starts off slowly but 
finishes with a flourish and doesn't take long to run. 
Ther's a repeat option at the end too. Now, do any of our 
overseas readers have listings that will print out the flags 
of other countries? 


5 REM ***UNION JACK*** 

10 PAPER@: INK7:HIRES:PRINTCHRS (17 

) 

20 A=20:B=1:C=48:D=232:E=1:F=45:G 

OSUB1LEOD 

30 A=150:B=-5:C=42:D=228:E=-1:F=- 

45:X=@:Y=0:Z=8:GOSUB1@IG 
CURSET222,20,0:FILL131,3,64 
CURSET12,28,0:FILL112,1,4 
CURSET135,20,9:FILL41,1,4 
CURSET135,110,0:FILL41,1,4 
CURSET1@5,20,9:FILL131,1,1 
CURSET111,20,1:FILL139,4,127 

100 CURSET18,71,1:FILL29,34,127 

1180 CURSET12,71,0:FILL29,1,1 

12@ CURSET@,0,@0:FILL1790,1,23 

208 INPUT"FLY THE FLAG AGAIN 

"SAS 

210 IFAS="yY"THENRUN 

220 IFAS="N"THENTEXT:GOTO230 

225 GOTO20G 

230 PAPER7: INK@: END 

1000 REPEAT 

1018 CURSET@,AtY,@:FILL1,1,4 

1020 CURSET6,A+Y,1:DRAWBt+X,9,1 

10930 CURSET12+X,AtY,%:FILL1,1,1 

1040 CURSET18+X,A+Y,1:DRAW18,9,1 

19586 CURSETC+X,A+Y,@:FILL1,1,4 

1968 CURSETC+X+6,AtY,1:DRAW138-2* 

X,9,1 

1079 

1080 


(Y/N 


CURSET198+Z,A+Y,@:FILL1,1,1 
CURSET204+Z,A+Y,1:DRAW18,9,1 


1099 
1100 
1 
11190 
1129 
113@ 


CURSETD-X,A+Y,@:FILL1,1,4 
CURSETD-X+6,A+Y,1:DRAW1+X,@, 


X=X+1.5: Y=Y+E:Z=Z-1.5 
UNTILY=F 
RETURN 


BLACKBOARD 


Martin Walker is a teacher and uses this Quickie to 
display characters double height when they are entered 
at the keyboard. 


REM *** BLACKBOARD *** 
PRINTCHRS (29) 
CLS 
POKE618,19 
FORI=@T026 
PLOT1,1,1@ 
NEXTI 
K=1 
J=2 
GETAS 
A=ASC(AS) 
IFA<320RA>126THEN18@ 
PLOTS, KK, 
PLOTJ,K+1,A 
J=J+1 
IFJ=39THENID 
GOTO1I@ 
189TFA=3THEN27@ 
190 IFA=13THEN25@ 
200 IFA=27THEN3@ 
210 IFA=127ANDJ>2THENJ=J-1 
220 PLOTJ,K,32 
230 PLOTJ,K+1,32 
248 GOTO1LGD 
250 K=K+4 
260 IFK<26THEN1LGO 
263 GOTO3@ 
270 PRINTCHRS (4) ;CHRS (20) 
2808 POKE618,3 
298 CLS 
30% END 
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and forthly ... 


ROLL 


ROLL is standard in Forth-79. 

Executing 'n ROLL’ will rotate 

the n'th number down the 

stack to the top of the stack. 

So, nyNengngng becomes 
NaNgN4gnsn) 

‘3 ROLL' is the same as 
ROT and ‘2 ROLL' equates to 
SWAP 

ROLL pushes the n-1 
topmost entries on the Data 


Stack (DS) to the Return Stack 
(RS). All <R and R< items in 
the listing are stored as within 
a loop, the loop limits are 
above RS. At this stage, the 
target nth number is on top of 
DS. All the numbers on RS 
are then pulled back to DS, 
one by one, and swapped 
with the nth number. Ifn = 1, 
ROLL has no effect. 


: ROLL DUP 1 = IF DROP ELSE DUP 1 DO SWAP R> R> ROT 
>R>R>R LOOP 1 DO R> R> R> ROT ROT >R>R 


SWAP LOOP THEN; 


ARRAY 


ARRAY defines arrays of any 
dimension, and uses ROLL. 
You can define as many array 
fields as you wish. 

To build a one field array, 
FRED, with five integer cells, 
enter 5 1 ARRAY FRED. 

To dimension a two field 
array of four by ten element 
cells, called MICK, enter 4 10 
2 ARRAY MICK. 

The general from for an N 
dimensional array of t, by te 
by...ty cells, is tytg...tw N 
ARRAY NAME 

Executing 2 FRED returns 
the address of element 2 in 
the array FRED. Executing 2 6 
MICK puts the address of 
element 2,6 on top of the 
stack. 

You'll note that the range of 
element numbers includes 0 
as the first element. So, FRED 
elements are indexed by 
0,1,2,3,4, and MICK by 0-3, 
0-9. 

Note too that no range 
checks are carried out. Enter 
an element that doesn't exist, 
such 7 FRED, —1 FRED or 2 
10 MICK and you run the risk 
of reading or writing in the 
definitions of other words. 

ARRAY works like this. The 
>BUILDS part stores N in the 
next free cell, loops N times, 
storing the number (t) in the 
next free cell and multiples it 
by the others. The final 
product is then multiplied by 
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two to give the number of 
bytes needed for the array 
data. This number is then 
ALLOTed. The memory map 
(Diag. 1) shows what is 
happening. 

The DOES part is a little 
more complicated. An entry 
‘X)X_X3...Xn NAME’ should get 
the address (AD2) of element 
number X)X2X3...Xj Pushed to 
the top of DS. The address 
ADO, containing N, is pushed 
to the top of DS when DOES 
is executed. The offset (OF 1) 
from here to the first address 
(AD1), containing data, is 
2*(N+ 1) bytes. 

If n=1 then the offset (OF 2) 
from AD] to AD2 is x,. If N=2 
then OF2 equals x; + X»*t), 
and if n=3, the OF2 equals 
X) +t|(Kg+ te*x3). The general 
formula for OF2 is OF2 = X1+ 
ti &a+te*(.. ny +tn—1*Xn)...)) 
The offsets have been 
measured in integer cells. To 
get the byte offset, just 
multiply by two. 

So, AD2 = ADO + 2*(OF1 
+ OF2). 

DOES thus gets N from 
memory and checks if N=1. If 
so, OF 1=4 (bytes) and 
OF2=2*x, (bytes). Therefore, 
AD2=ADO+4+2*x, bytes. If 
N 1, OF1=2*(N+1). OF2 is 
calculated from the OF2 
general formula, starting from 
the innermost parenthesis. 

The program loops n—1 


fea 


times, each time multiplying 
the result by the next t and 
adding the next x. This result 


is multiplied by 2 to give the 
byte offset, and this total is 
added to both OF] and ADO. 


. ARRAY <BUILDS 1 SWAP DUP , 8 SWAP DOI 1+ ROLL 
DUP , * —1 +LOOP 2 * ALLOT DOES> DUP @ DUP | = IF 
DROP 4 + SWAP ELSE 1 SWAP DO DUPI1-—2*+@ 
ROT * ROT + SWAP —1 +LOOP DUP @ 1+ ROT + THEN 


COMMENTS 


This address is pushed on stack when 


t; ‘DOES ' is executed. 


The content of the address above here 


a*t+; 
Memory Map 
ADDRESS CONTENTS 
ADO N 
te 
tg 
ADI @,0....,0,0) 
(1,0....0,0) 
(t;—1,0)...,0,0) 
,1,0,....0,0) 
AD2 (41 XppeeXn) 


fi- Ltemlasty=1) 


are not amended when the array 
once is defined. 


Data part. 


Address of element no. (X,Xg,....Xn) 


Memory map — the parentheses mark that the content of the cell isan element of 
the array. Note that each line in the map is one integer cell or two bytes. 


CLA 


CLA, CLear Array, 1s used to 
clear any array. It uses the 
ERASE function, and the form 
is ‘CLA NAME’. There is no 
need to enter the array 
dimensions. CLA consists of 
two words. 

(CLA) assumes that the 
PFA of the array to be 


cleared is at the top of the DS. 


It multiplies all the ts in a loop 
that is executed N times. This 
number is then multiplied by 
two to give the number of 
bytes of memory that are to 
be ERASEd. 

The start address used by 
ERASE is given by 
ADO+2*(N+1). The address 
on the stack when—FIND is 


executed is two bytes lower 
than ADO, as the first cell of 
the PFA points to the DOES> 
part of ARRAY. That's why 
there is a 2+ at the start of 
(CLA). 

CLA tries to find the array. 
If not found, an error message 
is displayed and the routine 
QUITs. If the array is found, a 
check is made to see if the 
computer is in the compilation 
or execution state. 

If executioning, (CLA) is 
called. Otherwise, PFA is 
compiled as a literal and 
(CLA) called. Thus you can 
use CLA both directly from 
the keyboard and within 
another word definition. 


: (CLA) 1 SWAP 2+ DUP @ @ DO DUPI1+ 2* + @ ROT 
SWAP LOOP DUP @ 2 * + 2+ SWAP 2 * ERASE; 


: CLA -FIND IF DROP STATE @ IF [COMPILE] LITERAL 
COMPILE (CLA) ELSE (CLA) THEN ELSE @ MESSAGE SP! 


QUIT THEN ; IMMEDIATE 


APPEND/ 
RENUMBER 


Ever wished that your collection of useful BASIC 
routines you got from magazines and suchlike could 
be rationalised into one single file? And how about 
the times that you wished that you could tag 
programs together instead of retyping something that 
you had done some months before? 

With this machine code utility for the 48K model 
you could do precisely that; and as a bonus, you 
can also use it to renumber programs with a first line 
number and increment of your choosing. Three error 
and two OK messages are also provided so that any 
programs which fail to ‘park’ or append would not be 
accidentally overwritten or NEWed. 


Loading the source code 

Ideally, a purpose-made assembler or monitor should be 
used, but if one is not available, then the BASIC 
Loader/mini-monitor provided should do. If you are using 
an assembler, then substitute all RTS instructions with 
BRK and replace them when each routine has been 
tested and found to be satisfactory. The zero-page 
locations used are 70H to 7FH and the description of 
breakpoint values are given in the listing. Use a short 
BASIC program to do this; you will be able to recognize 
the end of the program by a series of three zero bytes. 


Using the BASIC Loader/mini-monitor 

Enter the Loader and simply RUN the lines you require. 
The input parameter will only accept hex values in the 
form of a string input; do not include '#' or spaces. Stop 
entry by entering 'S' in response to the prompt. 


Test each routine by RUNning 100. Enter the address 
to execute in response to the prompt and the routine will 
be executed, displaying zero-page locations 70H to 7FH 
on RTS. Enter 'S' to quit; any other key will prompt you 
for another address to execute. 


RUN 200 to examine the contents of memory. It will 
dump eight locations at a time and wait for a key press 
before displaying the next. Pressing 'S' will stop the 
routine. 


CSAVE the completed program with: 
CSAVE “APPEND”, A#B200, E#B443, AUTO 


I suggest that you use the Slow mode, but this depends 


on your faith! To Load the program from tape, simply 
enter: 


CLOAD “APPEND” 


Usage instructions 

Before entering or Loading any BASIC programs, you 
will need to load APPEND first. Then enter NEW and 
CLEAR or you will find that the computer will insist on 
displaying the “POUT OF MEMORY" message. APPEND 
will not be affected. If the program does not auto-start on 
loading, enter CALL #B200 to bring up the installed 
message and to ensure that APPEND is in memory. 


To park a BASIC program, enter: 
CALL #B420 


You should then get the "OK —- IN MEMORY” message. 
Programs larger than 6.5K will generate a “?SIZE 
ERROR’ and will not be parked. You should not attempt 
to enter HIRES at any time as this will erase APPEND 
and any parked programs. 


To append the program, enter: 
CALL #B430 


Note that you cannot recall a parked program into 
‘empty’ memory; at least one BASIC line must be present 
—1Le. it must be LISTable. After all, the object is to 
append a program! You may append a parked program 
as many times as you like as long as the combined 
programs do not exceed 37.75K in which case the 
“?APPEND SIZE ERROR" message will be generated. 
Both programs however will still be intact but will not be 
combined. 


Line renumbering 

APPEND will renumber all lines of the appended 
program using the last line number of the program it - 
appended to as base reference. The original increments 
are kept; so for example if the last line numbered 4000 
and the parked program had 10 as its first line, then the 
first line of the appended portion will be numbered 4010 
If renumbering exceeds 65535 (FFFFH) the APPEND wil 
attempt to renumber the entire program in increments o/ 
10 starting with 10. If this still produces a line number 
greater than 65535, then the message “?RENUMBER 
ERROR" is displayed and the program will need to be 
renumbered ‘manually’. 


‘Manual’ renumbering 
Enter: 


DOKE #74, with the first line number of your choice. 
DOKE #76, with the increment. 
CALL #B319 


Note that only the line numbers are renumbered, 
APPEND will not check for GOTO branches. 

I can let any reader who has difficulty in entering the 
source code have a copy of the program on cassette at 
£4.00 each and would be pleased to try and assist 
anyone if they send an SAE to: 

David Yan, 16 Durban Road, Smethwick, Warley, West 
Midlands B66 3SQ 
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4C EA B3 JMP $BS3EA #7B: MSB 
#7C: Remaining no. of bytes 
Find end of BASIC program #71D: No. of pages to move 


#70; LSB Last line > AS 72 LDA $72 
#71: MSB position : 7C STA $7C 
#72: LSB End of program : Q1 LDA #$0]1 
#73: MSB position 28 STA $78 


@S LDA #$05 
B203: AS @l LDA #$81 : 79 STA $79 


B2@5: 85 72 STA $70 Q1 LDA 4#$01 


PA STA $?7A 
Renumber from appended portion : 98 LDA 


#$98 

#70: LSB Last line position ; 7B STA $78 

#71: MSB >: 60 RTS 

#72: LSB Current line pos. : 68 PLA 

#73: MSB 

#74: Constant=last line no. : a RTS 

#75: MSB Constant : 7D LDX 

#76: LSB Increment 

#77. MSB Block move . . 
on values contained in 
#78-#7D 

05 LDA #$@5 


71 STA $71 >: F@ 10 BEQ 
@1 LDY #$01 > AB BB LDY 
78 LDA ($78),Y > Bl 78 LDA 
72 STA $8072,Y 2 91 7A STA 
2 Bro Be 
BEQ $B2a ' 
INY : > £6 73 INC 
LDA ($72),Y E6 7B INC 


BEQ $B224 a“ Fe ae 
LDA $72 


Aq 2C LOY 
ume B1 78 LOA 

91 7A STA 
STA $71 a Zn 
BNE $B2@B <a = 
ae FO F? BEG 
LDA ($72), fis ai 
BNE $B21A = an 
RTS 


CLD Check size of new program and 
38 SEC load new Move values 


AS LDA #78: LSB From 
ES SBC #79: MSB 

48 PHA #7A: LSB To 
ae Sex #71B: MSB 


oo ee oo 
B@ 18 BCS $B24E sas 
68 PLA : 18 

85 2D STA $7D : AS 72 


65 7C 
Check size and load Move values >: AS 


#78: LSB From 7 65 7D 
#19: MSB : 38 
#7A: LSB To : £9 98 
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B27D: BO 10 BCS 

B27F: AS @l LDA : #$Q2 
B281: 85 78 STA : ($70),Y 
B283: AS 98 LDA : $74 
B285: 85 79 STA 

B28?: AS 72 LDA : ($70),Y 
B289: 85 2A STA $75 
B28B: AS 73 LDA ; #$21 
B28D: 85 7B STA : ($723,Y 
B28F: 60 RTS : $B30C 
B298: AS 72 LDA 


Repoint BASIC line pointers 

#78: LSB Current position 

#79: MSB being worked on 
#A: LSB Next position 

#7B: MSB to be updated 
#74: Value to substract 

#75; Value to be subtracted 

#76: Result=no. of bytes in the line 


85 2A STA $7A 

AS 73 LDA $73 

85 7B STA $7B 

AS @} LDA #$2) 

85 74 STA $74 

AG @1 LDY #$81 7 #$Q1 

Bl 2A LDA ($7A),Y : ($723,7 


F@ 32 BEQ $B2D4 

AS 7A LDA $7A 

85 78 STA $78 ; $B2FE 
AS 7B LDA $7B 

85 79 STA $79 . $72 
88 DEY 

Bl 78 LDA ($78),Y , $73 
85 275 STA $725 ; $B2E0 


D8 CLD : 
38 SEC : #$0A 


AS 75 LDA $75 : $74 

ES 74 SBC $74 : $76 
85 76 STA $76 : #$2B 
18 CLC : $75 
AS 78 LDA $78 ‘ $7? 
65 76 ADC $76 : 4921 
B5 2A STA $A : $72 
AS 79 LDA $79 : #$25 
63 22 ADC #$20 $73 
85 7B STA $B ; #$21 
AS 75 LDA $75 ; ($72), 1 
85 74 STA $74 : $B352 
AQ @1 LDY 4#$01 

BS 7A LDA $297A,Y : $74 

31 78 STA ($78),Y : C872), 
88 DEY 

F@ FS BEQ $B2CA : $75 
38 C8 BMI $B29C : ($72), 
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B331: AG Ol LDY #$@1 
B333: Bl 72 LDA ($72), 
B335: 48 PHA 
B336: 88 DEY 
B337: F@ FA BEQ $B333 
B339: 68 PLA 
B33A: 85 72 STA $72 
B33C: 68 PLA 
B33D: 85 73 STA $73 
B33F: 18 CLC 
B34@: AS 74 LDA $74 
B342: 65 76 ADC $76 
B344: 85 74 STA $74 
B346: AS 75 LDA $75 
B348: 65 7? ADC $77 
B34A: 85 25 STA $75 
B34C: B@ @6 BCS $B354 
B34E: 98 D] BCC $B32] 
B35@: EA NOP 
B351: EA NOP 
B352: EA NOP 
B353: EA NOP 
B354: 68 RTS 
B355: 18 CLC 
B356: Ag Be LDY #$@0 
Print message 
#7E: LSB Message location 
#7F: MSB 
B358: Bl PE LDA (€$7E),Y 
B3SA: C9 FF CMP H$FF 
B35C: F@ 86 BEQ $B364 
B35E: 99 8@ BB STA $BB8@,Y 
B361: C8 INY 
B362: DO F4 BNE $B358 
B364: 68 RTS 
B365: EA NOP 
B366: EA NOP 
B367: EA NOP 
B368: EA NOP 
B369: EA NOP 
B36A: 41 5@ 5@ 45 4E 44 
B37@: 2F 52 45 4E 55 4D 20 6a 
B378: 44 2E 59 41 4E 2@ 31 39 
B38@: 38 34 FF 3F 53 49 SA 45 
B388: 20 45 52 52 4F 52 20 28 
B390: 28 28 280 20 20 20 28 20 
B398: 20 20 20 FF 3F 41 S5@ 58 
B3A@: 45 4E 44 2@ 53 49 SA 45 
B3A8: 20 45 52 52 4F 52 28 20 
B3BQ: 20 20 20 2@ FF 3F 52 45 
B3B8: 4£ S55 4D 42 45 S52 20 45 
B3C@: 52 S2 4F S2 28 28 20 22 
B3C8: 28 28 20 28 20 FF 4F 4B 
B3D@: 20 2D 49 4E 20 4D 45 4D 
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B3D8: 


B3E@: 
B3E7: 


B3E8: 
B3E9: 
BSEA: 
BSEC: 


4F 52 59 20 20 20 20 20 
28 20 28 20 20 24 FF 


EA 
EA 
EA 


AS 6A 
85 PE 


NOP 
NOP 
NOP 
LDA 
STA 


#$6A 
$7E 


Message index/links to Print Messages 


B3EE: 
B3FQ@: 
B3F2: 
B3F5: 
B3F6: 
B3F8: 
B3FA: 
B3FD: 
B3FE: 
B40: 
B4@62: 
B4@5: 
B46: 
B48: 
B4@A: 
B4@D: 
B4@QE : 
B41@: 
B412: 
B415: 
B416: 


B417: 
B418: 
B419: 
B41A: 
B41B: 
B41C: 
B41D: 
B41E: 
B41F: 
B420: 
B423: 
B426: 
B428: 
B42B: 
B42D: 
B43: 
B433: 
B436: 
B438: 
B43B: 
B43E: 
B441: 


AS 
B85 
20 
608 
AS 
B85 
20 
6a 
AS 
B85 
28 
62 
AS 
85 
20 
68 
AS 
85 
28 
62 
EA 


EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
28 
20 
BG 
20 
38 
4c 
20 
28 
Ba 
28 
20 
20 
4C 


B3 
PF 
D0 


83 
PE 
35 


3C 
PE 


55 


BS 
7E 
a5 


CE 
7E 
55 


B3 


B3 


B3 


B3 


B3 


LDA 
STA 
JSR 
RTS 
LDA 
STA 
JSR 
RTS 
LDA 
STA 
JSR 
RTS 
LDA 
STA 
JSR 
RTS 
LDA 
STA 
JSR 
RTS 
NOP 


Program driver 


83 
2A 
CE 
38 
El 
EA 
@3 
70 
C6 
r=) ) 
32 
DS 
EA 


B2 
B2 


B2 


B3 
B2 
B2 


B2 
B2 
B2 
B3 


NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
JSR 
JSR 
BCS 
JSR 
BCC 
JMP 
JSR 
JSR 
BCS 
JSR 
JSR 
JSR 
JMp 


#$B3 
$7F 
$B355 


#$83 
$7E 
$B355 


#$3C 
$7E 
$B355 


#$B5 
$7E 
$B355 


#$CE 
$7E 
$B355 


$B203 
$B22A 
$B3F6 
$B250 
$B40E 
$B3EA 
$B283 
$B270 
$B3FE 
$B258 
$B290 
$B2D5 
$B3EA 
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BLOCK LINE DELETE| VARIABLES SAVED 


Getting rid of a chunk of 
unwanted program can be 
tedious if you simply type in 
line numbers and RETURN — 
particularly if lines are 
numbered irregularly. Here's 
a simple eight line program to 
take this drudgery off your 
hands, 

It is entered in what will 
hopefully be a free portion of 
memory, starting at line 63325. 


63325 X=1281 : REM START OF BASIC CHAIN 
63326 IF DEEK(X+2)<>sss THEN X=DEEK(X): GOTO 63326 
63327 Y = DEEK(X) 
63328 IF DEEK(Y+2)<>fff THEN PRINT DEEK(Y+2),: 

Y = DEEK(Y): GOTO 63328 
63329 PRINT: INPUT "CONFIRM DELETION (Y/N)’, A$ 
63330 IF A$ = "Y" THEN W = DEEK(X): DOKE X,Y: 


24] 


; GOTO 63332 

63331 END 

§3332 FOR Z = W TO Y-2: POKE Z,85: NEXT 
63333 LIST 


Atmos owners, with a 
debugged IF...THEN... 
ELSE can enter 
63330 IF A$ = "Y" then W = 
DEEK(X): DOKE X,Y: ELSE 
END and delete 63331. 

sss and fff are the markers 
for the block to be deleted. 
When the program is run, all 
line numbers higher than sss 
and lower than fff will be 
deleted. You'll have to enter 
the relevant line numbers 
when typing in the program. 
Alternatively you could insert 
lines asking for an input, 
together with checks to verify 
entered lines actually exist. 

With the program entered, 
type RUN 63325. You'll be 
asked if you want confirmation 


E 
[ 


63328 Checks line numbers 
for fff, where deletion 


or not, and the block deleted. stops 
If you add any new lines 63329 Checks the range is 
after the block deletion, the correct 


63330 Deletes the specified 
lines by updating 
BASIC pointers 

63332 Fills deleted block with 
Us, thus destroying 
deleted lines and their 
pointers, so they aren't 
rediscovered if new 


deleted block will reappear 
as 28145 UUU UUUUUU... To 
clear this, enter 28145 and 
RETURN. 

The Block Line Delete 
program works very simply. 
Here's what's happening. 
63325 Sets X to start of Basic 


chain lines are added 
63326 Checks line numbers 63333 Lists the final program 
for sss This little piece of Oric 


63327 Checks line numbers 
for block to be deleted 


wizardry comes from C. R. 
Burnham. 


oo ey 
TIA A | 


David Peat is just 14, but he's 
sent us three tips that really 
make us think he's an Oric 
whizz kid. 

The first comes from his 
interest in l-o-n-g adventure 
programs. Even the Oric's 
memory isn't big enough to 
hold them all! So, he's had to 
store them on different tapes, 
and keeping variables and 
flags stored when loading 
different sections of the 
program is a problem. What 
David does is to POKE all the 
variables into an unused part 
of memory, load the new 
program and then PEEK them 
out again. Here’s the POKE 
program, for eleven variables. 


10 FORN = 8 TO 10 

20 POKE 1024 + N, ACN) 
30 NEXT N 

40 CLOAD(B$) 


Variables are poked to 
locations from 1024. Increase 
the number of loops and you'll 
be able to store more 
variables. 

B$ is the name of the next 
part of the program. You must 
use brackets around the 
variable name. Now, start the 
second program section with 
the PEEK program. 


10 FORN = 0 TO 10 

20 LET A(N) = 
PEEK(1024+N) 

30 NEXT N 

40 END 


If you've saved the new 
program using AUTO, this 
first section will automatically 
run and the variables be read 
in automatically. 


Tip number two relates to 
key pressed recognition 
numbers. Enter this two liner. 


10 PRINT DEEK(783) 
20 GOTO 10 


RUN it and you'll get a 
listing of five figure numbers, 
the number depending on the 
key pressed. For example: 
45310 No key pressed 
48255 Cursor right 
48319 Cursor down 
48351 Cursor left 
48375 Cursor up 
48375 Space bar 
and so on... 

So far, interesting only. 
However DEEK(783) can 
really speed up a game, like 
this... 

POKE 755,X changes the 
speed at which the Oric scans 
the keys. X = 10 gives a rapid 
auto repeat and a slower 
program. X = 255 givesa 
slow auto repeat and a very 
fast program. However, POKE 
755,X works only as long as 
no keyboard input is needed. 
Use DEEK(783) instead of 
KEY$ and you can get a much 
faster games program. Use 
this method and you will more 
than halve the key response 
time in games. Who needs 
machine code? 

David's third tip is an 
alternative to the CHR$(27) 
method of changing text 
colour. Instead of 
CHRS(27)"letter... characters” 
enter the following, and get 
the following effects. 


PRINT CHR$(128) — black text 

PRINT CHR$(129) — red text 

PRINT CHR$(131) — yellow 
text 

PRINT CHR$(132) — blue text 

PRINT CHR$(133) — magenta 
text 

PRINT CHR$(134) — cyan text 

PRINT CHR$(135) — white 
text. 


Numbers from 144 to 151 give 
background colours. This tip 
may not save time, but it 
certainly makes programs 
tidier through getting rid of 
attribute letters at the start of 
text or strings. 
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ERROR PEEK 


A quick way to see all the 
Oric command words and 
error messages is to run this 
short program from fifteen 
year old M. J. Allen of 
Birmingham. 


10 PTR = #CQEA 

20 LAST = #C3CB 

30 REPEAT 

40 PRINT CHRS(PEEK(PTR)); 

50 IF PEEK(PTR)> 128 THEN 
PRINT 

60 PTR = PTR + 1 

70 UNTIL PTR = LAST 


He found an unlisted 
command, EDIT. This acts as 
LIST but does not print Ready 
below the EDITed line and 
the cursor comes to rest next 
to the EDITed line. 

When it comes to speeding 
up entry of programs, he has 
another little tip for entering 
random numbers. Entering a 
line such as 
10 A = INT(RND(1)*9)+1 
is tricky. A shorter way to do 
the same thing is this... 

10 A% = RND(1)*10 

The variable A% can be 
handled faster by the Oric, 
but should always be 
addressed as A%, not A. 

Our Birmingham brain has 
also found a way to speed up 


some sections of a BASIC 
program. Using the command 


CALL #E6CA 


turns off the interrupts and 
will make program sections 
run about 20% faster. 

There are restrictions to 
this. Turning off the interrupts 
kills the keyboard, and the 
only way to revive it is to 
reset the computer. To 
restore the interrupts, use the 
command 


CALL #E804 


You'll need to use this 
before the program ends, or 
before the following 
commands: GET, INPUT, 
KEY$, STOP and END - ie. 
commands needing a key- 
board output. 

You'll also run into 
problems if you try to switch 
from TEXT to HIRES or vice 
versa with the interrupts off. 
Don't do this, 

CALL #E804 affects both 
TEXT and HIRES screens. 
Locations to the left of the 
CAPS sign are effected in the 
text mode. 

So, with careful use, CALL 
#E6CA could be a valuable 
aid to sorts, number 
crunching and so on. 


KEYBOARD 
RESETTING 


Anyone who's cursed at the 
location of the reset button 
will be grateful for this tip 


from Mr Russell of Keighley in 


West Yorkshire. In one line, 
you can redefine the ! key to 
act as a reset. 

Type in this... 


DOKE #2F5, #F430 
(RETURN) 


Now, whenever you need 
to reset your Oric, press |, 
RETURN and you'll have an 
instantaneous reset. Now why 
couldn't the designers have 
done something simple like 
that? 
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COLOUR CODES 


Achieving double height 
characters is through using 
CTRL D or CHR$(4). You can 
change the colour of the 
characters of background or 
foreground with PAPER and 
INK commands. It can get 
confusing. Here's another way 
to do that, contributed by Mr 
T. Arnold of Abingdon, 
Oxfordshire. 

It relies on one basic 
statement. 

POKE #26A,67 : DOKE #26B, 

#X: CLS 

The value of X determines the 

effect. Here are some X 

values, and their effect. 

010A Red, double height 
characters on black 
screen, until effect 
cancelled 

020A Green characters, as 
above 

030A Yellow characters, as 
above 

040A Blue characters, as 
above 

050A Magenta characters, as 
above 

O60A Cyan characters, as 
above 

070A White characters, as 
above 

110A White, double height 
characters on red 
screen, until cancelled 

120A As above, green screen 

130A As above, yellow 
screen 


140A As above, blue screen 

150A As above, magenta 
screen 

160A As above, cyan screen 

170A As above, white screen 
(you won't see a thing!) 

180A Corrupts screen 
display, don't use 


Other values give different 
results, so experiment for 
yourself, 

The last X value brings us 
to Mr Arnold's second tip. If 
you either corrupt the display 
or crash and lock up the 
keyboard, try typing CALL 
555, and RETURN. Usually the 
screen will be restored to 
PAPER 7, INK 0 and cleared, 
caps and keyclick on. It also 
clears all peeks, pokes and 
redefined characters. In other 
words, it acts as the fiddly 
reset button. So, remember, 
in an emergency, CALL 555. 

This short program 
demonstrates the above tips 
and will let you try them out 
yourself. 


10 INPUT X: REM... 

20 POKE #26A,67 : DOKE # 
26B,X : CLS 

30 PRINT: PRINT : “ORIC 
TEST" 

40 PRINT : PRINT: PRINT 

50 IF X = 999 THEN CALL 
585 

60 GOTO 10 


e 
LT) 


PAY 


Te ip StS te ‘ 
es vate I Oo ee > 


Totally devyted to yo f 


Oric Owner is the official magazine devoted to the Oric 1 and Atmos home computers. 
It's crammed full of in-depth information, advance news on the latest add-ons, superb programs and 


interviews with the engineers who designed it. =i 
The first issue is absolutely free when you buy your ORIC OWNER SUBSCRIPTION FORM 


Oric, so why not keep ahead of the latest developments _| Please send me the next 6 issues 
and subscribe to further issues. A years subscription 
of 6 issues is now only £7.50 (Overseas P.0.a) SO POSt — | NAME..nnnnnnnnnnnnnnnnnnnnnnnssnnnninninninnnnnnnnnnnn 
the coupon today. Address 

Can you imagine life without it? 


enclose a Cheque FOF .............scseecssssee: (cheques payable to Tansoft Ltd) 


Back issues are available for £1.20 each. If you missed your first 
free issue contact your dealer or Oric Products International who will 
supply you with one. 


TT ey 
Tansor HB Tansoft Ltd, Units 1 & 2 
Cambridge Techno Park Newmarket Road, Cambridge CB5 8PB 


Design Heffers, Cambridge 


ZORGONS REVENGE 


The second in the Xenon trilogy, written by 
the same author as Xenon-1, and con- 
tinuing the high standard of excellence. 
Zorgons Revenge is well on its way to 
repeating the success of Xenon-1, and is 
again receiving rave reviews. 


“This game certainly is the best arcade 
style effort | have yet seen on the ORIC. The 
graphics are superb...the author deserves 
praise...and | was impressed with thé ease 
with which the game loaded, even though 
the cassettes contained ‘fast’ versions 
only”. - PERSONAL COMPUTER WORLD 
GAMES SPECIAL, 1984 

“The animation is smooth and detailed... 
this will be a solid gold hit’. - COMPUTER - 
CHOICE, Feb. 1984 

“Some'of the best grapfics available-for the 
ORIC...recommended”. — - CG HiIT,. 
PERSONAL COMPUTER GAMES, Feb. 1984 
“Quite the best "ve: seen for the 
ORIC...superb gra 

10th Dec. 1983 


Following their defeat at the hands of 


XENON-1 LORE ‘ 


A true legend in computer software. This game: 
topped the ORIC software charts in ‘most high: 

street stores during .1983, and became the 

overall best selling computer game in France for 

the same period, gaining rave . reviews © 
throughout the press. . 

“Uses the ORICS tremendous capabilities. to 

excellent advantage,..truly mind boggling...the 

graphics are absolutely superb, very smooth - 
indeed...1 can thoroughly recommend | this 


program”. 

- WHAT MICRO, Sept. 1983 
“This is the best arcade game’ yet. available for 
the ORIC. The graphics and animation are . 


superb”. ‘ ‘ : : 
-ORIC OWNER; Sept 1983 . 

As fleet’ commander in the Xenon. space 
academy, you must protect your home planet 
Radon from the Aards, Paratrons and the Zorgon 
® star! This 100% machine. code. game 

‘ “4 the smoothest, meanest arcade action 


‘and ORIC_ ATMOS. €8.50inc. 


fleet the Zorgons have captured the Xenon princess Roz, and have’ 


imprisoned her.in their castle, You are commissioned to rescue her by scouring the four corners of the Zorgon 
Empire to capture the magic stones. These stones, guarded by the Quadnogs, Terrapods and many other strange 
beasts, are needed to bridge the bottomless chasm surrounding the castle, enabling you to achieve your goal. 

Each one of the many varied stages in this scintillating 100% machine sode mission will test your arcade ability as 


never before. ‘ 
For the 48K ORIC-1 and ORIC ATMOS €8.50 inc. 


‘OTHER TITLES IN THE IJK SOFTWARE ORIC RANGE... 


INVADERS 
Machine code 
ade game for 
16K 8 48K ORIC-1 
ORIC ATMOS 
£7.50 inc. 


FANTASY QUEST 
Intriguing 
adventure for 
48K ORIC-1 
and ORIC ATMOS 
£6.50 inc. 


REVERSE 
Superb version of 
the board game 
for 48K ORIC-1 
and ORIC ATMOS 
£6.50 inc. 


jax Candy Floss 


3D MAZE & 
BREAKOUT 
Arcade action for 
48K ORIC-1 and 
ORIC ATMOS 
£7.50 inc. 


CANDYFLOSS & 
HANGMAN 
Two top 
educational 
programs for 
48K ORIC-1 and 
ORIC ATMOS 
£7.50 inc. 


